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kdaaguuit...! 

U, die over een MSX-homecomputer beschikt 
U, die alle mogelijkheden van die computer wilt ontdekken 
U, die zelf in MSX-BASIC wilt programmeren 


aag u uit zelf te ontdekken wat u met de NTI-cursus 
BASIC voor MSX-homecomputers" kunt bereiken. 
De leerzame, boeiende NTI-cursus maakt 
u helemaal vertrouwd met de MSX- 
wereldstandaard. Als u de onder¬ 
staande bon invult en opstuurt, 
brengt de postbode u binnenkort 

alle inlichtingen. 
Gratis en vrijblijvend. 


GRATIS EN VRIJBLIJVEND 

Stuur de onderstaande bon zonder postzegel naar het NTI. 
. Dan ontvangt u snel alle informatie per post thuis. 


Geen speciale vooropleiding 

Om met het NTI de diepste MSX-homecomputer- 
geheimen te ontdekken, hebt u geen speciale voor¬ 
opleiding nodig. Evenmin hoeft u al iets van computers 
en programmeren af te weten. U leert stap-voor-stap. 
Alle voorbeelden worden meteen in oefeningen ge¬ 
bruikt. 


U kunt gewoon thuisblijven 

U volgt de boeiende lessen thuis, dus in uw eigen ver¬ 
trouwde omgeving. U oefent op uw eigen MSX- 
homecomputer, in uw eigen tempo en op de tijdstip¬ 
pen die u het best passen. Zo leert u op een plezierige 
manier de MSX-homecomputer volledig naar uw 
hand zetten. 


U krijgt een eigen leraar 

Vanaf de eerste les krijgt u hulp van een bevoegde en 
zeer deskundige leraar. Hij kijkt uw huiswerk na, geeft 
u goede raad en beantwoordt uw vragen. Hij past zich 
aan bij uw leeftijd, aanleg eii ontwikkeling. Dat is een 
hele steun in de rug! 


Beschikt u niet over 
een MSX-homecomputer? 

Géén probleem. Als u 't wilt, levert het NTI u de MSX- 
homecomputer van uw keuze bij de lessen. 

En dit voor een uiterst lage prijs! U kunt kiezen uit: 



Phitips^ 
mms 822D 


Sony 
Hit-Bit F9P 



Uitvoerige informatie over de bij te leveren MSX-homecomputers vindt 
u straks in uw gratis kennismakings-pakket. 




't Gaat sneller via de 
GRATIS-PAKKET- 
LIJN: 

TIJDENS KANTOORUREN: 

01650 - 60.120 


NEDERLANDS TALEN INSTITUUT 

Lid van de officiële MSX- Werkgroep Nederland. 

Rechtzaad-4703 RC Roosendaal 
Telefoon 01650<60.120 


VAN 17.00TOT22.Ü0UUR EN IN HET WEEKEND: 

P. Schootstra 05615-23.04 
J C Mol 02510-11.900 

J Kaptein 078-15.60.01 



Knipt u liever 
niet in dit 
mooie tijd¬ 
schrift? 

Vraag uw informatie¬ 
pakket dan liever per 
telefoon, of schrijf de 
bon over op een 
briefje of briefkaart. 


JUT i 

iand. L 


Gratis Kennismakings-Bon 


Aan het Nederlands Talen Instituut 

... / 

JA, stuur mij gratis en vrijblijvend van de 
cursus BASIC voor MSX-homecompu¬ 
ters het uitvoerige informatie-pakket met 
kennismakings-les. 420 

Ik heb geen enkele verplichting. Ik mag het pakket houden. Geen bezoek aan huis. 
□ Dhr. DMevr, DMej. (Zó aankruisen a.u.b.) Eén blokletter per streepje: 


^Paani 


Naam: L 


-i^^1 L 


-J-^1 LI I I I 


Straat: i i i i 


I 1 I 


Postcode: i _j_ 


_l_I I - . 1 I 


J Voorletter: I_I 

J Nr.: l I I I I 

I R 7041 ~| 


Plaats; L i I 


1111 


-1- I I I_I_I_I_L_1 


Het pakket is gratis voor iedereen van IGjaar of ouder. 
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VOORWOORD 


SORRY, ZUIDERBUREN 


Door een communicatiestoring tussen de drukker en de verspreider is het met het 
vorige nummer misgegaan in België. In eerste instantie waren er in het geheel 
geen MSX-Gidsen naar België geleverd en uiteindelijk zijn het er slechts 300 ge¬ 
worden. Helaas; we hebben erop aangedrongen om het volledige aantal te leveren, 
maar dit was niet mogelijk. Wel zullen we ervoor zorgen zelf een flinke voorraad 
van Gids nr. 9 in huis te halen zodat de Belgische lezers het blad alsnog kunnen 
bestellen via onze bankrekening in België (zie hiervoor de prijs en het 
rekeningnummer bij de advertentie van de oude nummers). 


BR-IEVEN 

Steeds meer post komt er binnen bij onze redaktie. Zoveel, dat ik echt niet alle 
post persoonlijk met een fraaie brief kan beantwoorden. Komt een brief voor 
antwoord in aanmerking dan zal dat antwoord slechts uit een klein kladje of 
memootje_bestaan. Brieven met algemene vragen, waarvan de antwoorden in de 
handleiding van de computer -of in de MSX boeken- te vinden zijn, worden in het 
geheel niet beantwoord. Ik ben niet in staat om iedereen persoonlijk een cursus 
BASIC te geven of om alle instructies uit te leggen. Sorry. 


HET VOLOENDE NUMMER. 

Voor de volgende editie van de Gids hebben we nu reeds enkele zeer fraaie pro¬ 
gramma's klaar liggen. Enkelen zelfs van een nog niet eerder geplaatste 
kwaliteit. Kijk maar vast uit naar nummer 11 !!! 


EXTRA. EDXTIE NR - 2 

Ja, echt waar, toch weer een extra editie in september. We hebben zoveel goede 
inzendingen gehad dat het toch weer zonde zou zijn om alles terug te sturen. We 
zijn nu reeds met dit blad begonnen zodat we niet (zoals vorig jaar) in tijdnood 
komen te zitten. Ook deze extra Gids weer boordevol leuke en goede listings, 
enkele Utilities, diverse artikelen en uiteraard is dit alles weer gratis voor 
onze abonnees. Wie nu nog gauw een abonnement neemt krijgt natuurlijk ook deze 
editie gratis in de bus. Zoek in september maar weer de oranje omslag bij de 
tijdschriftenleverancier. 


MACHXNETAAIL, 

JRNOUD NOG EVEN AAN HET WOORD.... 

Bij het machinetaal artikel van Arnoud is -aan het einde- een stukje tekst 
verdwenen. We kwamen er nog op tijd achter en plaatsen hier dit laatste stukje 
van Arnoud: 

VOLGENDE KEER 

Volgende keer zullen we zien dat er nog een manier is om getallen tijdelijk te 
bewaren. Aan de hand van voorbeelden zullen de eigenschappen hiervan duidelijk 
gemaakt worden. Ook nemen we de verschillende adresseermogelijkheden van de Z80 
onder de loep. Tot die tijd is er alle gelegenheid om eens te experimenteren met 
de opdrachten die in deze aflevering aan de orde kwamen. Tijdens deze oefeningen 
zal het best eens voorkomen dat je computer op 'tilt' slaat, maar denk eraan: 
het leren van machinetaal is net als het leren van elke andere vreemde taal en 
dat gaat ook nooit zonder fouten. Bovendien kun je hiermee je computer niet 
vernielen. RESETten (of aan/uit zetten) is voldoende om weer aan de slag te 
kunnen. Tot de volgende keer! 


Dat was het dan van Alfred en Arnoud 



SUPER HELI 

Met een helicopter moeten twee 
uitgevoerd worden: 




opdrachten 


een 

het 


1. Bevrijdt 4 geheime agenten en neem 
bom mee. Dit gebeurdt door op 
vliegdekschip te landen. 

2* Vernietig het hoofdgebouw van de 
vijand. {Ga boven het gebouw hangen en 
druk op de spatiebalk/vuurknop). 

p zijn 7 velden en 4 levels. Elk level 
heeft een hogere snelheid. Ma het 4e level 
krijgt de speler bonuspunten en is het 
spel beëindigd. Na het behalen van de 
hoogste score kan de speler zijn/haar naam 
invoeren? dit gebeurt alsvolgt: 

Als het invoerscherm tevoorschijn komt 
kunnen de letters van links naar rechts 
■of van rechts naar links- worden 
verschoven met behulp van de joystick of 
de cursortoetsen. De juiste letter kan 
ingevoerd worden d.m.v. een druk op de 
vuurknop of de spatiebalk. Een verkeerde 
invoer kan worden gewist door de joystick 
of cursortoets naar beneden te drukken. Na 
invoer van de gehele naam kan deze worden 
ingevoerd door joystick of cursor naar 
boven te drukken. 

Er is een demonstratieronde. Deze komt 
vanzelf, wanneer het titelscherm in beeld 
is. Tevens zijn er instruktiepagina’s en 
mogelijkheden om de high-score naar 
cassette weg te schrijven of in te laden. 
De tekst van de instrukties kan worden 
onderbroken met de RETURN-toets. 

In het menu kan gekozen worden tussen 
keyboard, joystick 1 of 2 en instrukties. 
Wanneer b.v. keyboard wordt gekozen, zal 
het gehele spel met keyboard gespeeld 
moeten worden; ook het invoeren van de 
naam bij de scores. 


HET E*R.00R.AMMA. 

Het programma is opgebouwd uit verschil¬ 
lende delen, voorzien van REM-regels. De 
velden bestaan ieder uit twee onderdelen: 
een opbouwroutine en een bewegingsroutine. 

Bergen, gebouwen en de grot zijn 
ondergebracht in 1 of 2 variabelen 
waardoor het zeer eenvoudig is de velden 
te laten scrollen door de variabelen door 
de computer te laten bewerken. Het 
volgende voorbeeld zal dit verduidelijken: 

A$«"12345678" 

Dit wordt op het scherm 12345678 

A$=RIGHT$(A$,1)+LEFT$(A$,7) 

Dit wordt 81234567 

De 8 is door deze instructie voor de 1 
geplaatst. Door dit te herhalen wordt het 
scrollen verkregen. Dit is goed te zien in 
het volgende programmaatje: 





10 A$»’'ABCDEFG” 

20 A$=RIGHT$(A$,1)+LEFT$(A$,6) 

30 LOCATE 10,10 
40 PRINT A$ 

50 POR A=1 TO 300;NEXT 
60 GOTO 20 

Scrollen van recht naar links kan door 
regel 20 alsvolgt te wijzigen: 

20 A$=RIGHT${A$,6)+LEFT$(A$,1) 

Tevens is de tekenset veranderd. Dit staat 
uitvoerig beschreven in Gids nr. 4 pagina 
27. De kleur wordt veranderd met VPOKE. 
B.v. 8192,X. Het eerste nummer is het 

CHR$(8). VPOKE 
8193,X = CHR$(9) t/m CHR$(16). De x is de 
kleur waarrin de tekens veranderd moeten 
worden; voorgrondkleur x 16 + achter- 
grondkleur. 

BELANGRIJKSTE VARIABELEN 


A$( ) 

Hl 

VE 

SC 

H$ 

T 

H1,H2 

X,Y 

AN 


Strings voor het scrollen. 

Hoogste score. 

Veld. 

Score. 

Naam speler. 

Teller menu 1+2 en titelscherm. 

Y-as handje 1 en 2 (menu 1 en 2). 

X- en Y-as helicopter. 

Totaaltelling controle tekens en 
sprites. 

A,B Hulpvar. opbouw,wachtlus enz. 

LV Aantal levens. 

TM Tijd per veld. 

XB,YB Coördinaten UFO e.d. 

ST Teller om score met 10 te verhogen. 

D SpritenuBuner of kleur. 

SN Snelheid laser, UFO's e.d. 

UX(),UY() Locatie lasers UFO's e.d. 
X(1),X(2) Plaats om te landen op schip 
A$ Letters en cijfers intikroutine. 

XBS PLAY-gedeelte intikroutine. 

R1,R2 Regel controle verhoogt 10 per keer 


Red. 

Michel Janssen heeft dit spel gemaakt en 
is erin geslaagd om in BASIC toch een 
redelijk snel spel te maken met een 
scrollend scherm. De spelkwaliteit ligt 
hierdoor iets boven het gemiddelde van wat 
we in het algemeen ontvangen. Ook aardig 
is de demo-ronde en de mogelijkheid om de 
hoogste score op cassette te bewaren. 

Veel plezier met SUPER HELI. 
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Beeldscherm: WIDTH 36 


10 

20 

30 

40 

50 

60 

70 


’####### SUPER HELI I ######### 

^ # 

'# lilCHEL JANSSEN, WEBTERVOORT # 

■’ # # 

’# <0 1987 MSX GIDS AMSTERDAM # 

'############################### 


80 COLOR 15,1,1:SCREEN 1,2:WIDTH30 

90 CLEAR:DEFINTA-Z 

100 ON ERROR GOTO 4840 

110 ON STOP GOBUB 4840:STOP ON 

120 LOCATE 10,10:KEYOFF 

130 PRINT"SUPER HELIREST0RE5180 

140 H$="MR-J ANSSEN":HI=500:W=29 

150 ’ 

160 ^ R1 en R2 moeten veranderd 
170 •’ worden als er zinnen 
180 ' bij gemaakt worden 
190 •' 

200 R1=5170;R2=5300:R=-1 

210 PL AY"V151220150b 10m5000e4c 3d 3e5c 

5e3d3c3d5d5g3b3d3g5d5-f 3e3" , "vl lo3t55 

cl" 

220 DIM A$(4),UX(4),SN(4),KR(56) 

230 Hl=88: H2=H1 

240 ’ controle karakters 

250 ■’ 

260 FOR C0=1 TO 56: READ KR(CO):NEXT 
270 FOR A=1T056; AN=0: R2=R2+10 
280 R=R+1:IF R>4 THEN R1=R1+10;R=0 
290 FOR B=1T08: READ Z$ 

300 C=VAL<"8<H"+Z*) ; AN=AN+C: NEXT 
310 IF AN<>KR(A)THEN ER=1:G0T0 4800 
320 NEXT 

330 RESTORE 5310 

340 ■’ karakters veranderen 

350 ’ 

360 FOR A=776 TO 999; READA* 

370 VPOKE A,VAL("&H"+A$) 

380 NEXT; VPOKE 468,8<H20 
390 ’sprites 1 t/m 7 
400 •' 

410 FOR A=1T07; A$="";FOR B=1T032 

420 READ B$: A$=A*+CHR$ <VAL < ”S<H"+B$) ) 

430 NEXT; SPRITE$(A)=A$; NEXT 

440 VDP(1)=VDP <1)-64 

450 ’ 1 etters/ci j-fers verkleinen 

460 =■ 

470 FOR A=384 TO 740 STEP8 

480 VPOKE A+1, VPEEK(A) ; VPOKE A,?<H0 

490 VPOKE A+5,VPEEK(A+6) 

500 VPOKE A+6,?<H0: NEXT 
510 ’ kleur karakters 
520 =• 

530 FOR A=8198 TO 8199: VP0KEA,144;N 
EXT 

540 FOR A=8200 TO 8203: VP0KEA,64;NE 
XT 

550 FOR A=8204 TO 8207; VPOKEA,144:N 
EXT 

560 VPOKE 8219,111 


570 


intro scherm SUPER HELI 


580 =• 

590 CLS;FOR A=0TO22;LOCATE 1,A;PRINT 
BTRING*(29,219)NEXT;CLOSE #1 
600 FOR A-1TO20;PUT SPRITE A,(-32,-3 
2);NEXT:T=0 

610 FOR A=7T013;L0CATE5,A:PRINTSPACE 

$(21);:NEXT 

620 •• 

630 LOCATE 10,3:PRINT"SUPER HELI" 

640 LOCATE 3,21;PRINT"WRITTEN BY MIC 
HEL JANSSEN" 

650 LOCATE 6,7;PRINT"MOUNTAINB AND E 
NEMY" 

660 LOCATE 11,8:PRINT"LASER GATE" 


670 LOCATE 8,9;PRINT"NORTH SEA TANKE 
R" 

680 LOCATE 10,10:PRINT"FLIGHT DECK” 
690 LOCATE 8,11:PRINT"FLATS AND ENEM 

700 LOCATE 10,12;PRINT"THE PIRAMIDS" 
710 LOCATE 9,13;PRINT"THE ENEMY BASE 

720 LOCATE 4,18:PRINT"HIGH PLAYER "H 
$ 

730 VDP(1)=VDP(1)+64:A$="" 

740 SPRITE*(11)=CHR$(3)+CHR$(3) 

750 ’ verander karakter 
760 •’ 

770 B=0:FOR A=968 TO 1000 

780 B=B+1;IF B=9 THEN GOTO 830 

790 VPOKE 1751+B,VPEEK(A);NEXT 

800 GOTO 770 

810 =■ scroll up routine 

820 ’ 

830 FOR C=1TO70;FOR JO=0TO2 

840 IF STRIG(JO)THEN GOTO 880 

850 NEXT J0,C;T=T+1 

860 IF T>30 THEN GOSUB 2490 

870 B=1:G0T0 790 

880 IF STRIG(JO)THEN 880 

890 •’ keuze menu joy/kev/ins 

900 ' 

910 T=0:CLB:D=0:DEF USR=?<H156: A=USR ( 
0 ) 

920 PRINT" ee e e ee ee ee e e ee 
e e ; 

^30 F'RINT”© ©e©B© ©© ©©0 

0 II. 

940 PRINT**©©© e e ©© ©© ©e ee© ©© 

© © **" 

950 PRINT" eeee e ee eee 
© © ** * 

960 PRINT**©© e©© © ©© © 0 © 0 ©© 

© © ** 4 

970 LOCATE 10,11;PRINT"KEYBOARD" 

980 LOCATE 10,12;PRINT"JOYSTICK 1" 

990 LOCATE 10,13;PRINT"JOYSTICK 2" 

1000 LOCATE 10,14:PRINT"INSTRUKTIONS 
1010 B=STICK<JO) 

1020 IF B=1 AND Hl>88 AND D THEN Hl 

1030 IF B=5 AND Hl<106 AND D THEN Hl 
—H1 +8 

1040 IF STRIG(JO)THEN 1100 
1050 C=C+1 

1060 IF 04 THEN C=0;D=D+15 

1070 IF D>15 THEN D=0;T=T+1;IF T>20 

THEN A*="#";GOTD 1610 

1080 PUT SPRITE 7,(60,Hl),D,7 

1090 GOTO 1010 

1100 PUT SPRITE 7,(-32,-32) 

1110 IF Hl=88 THEN JO=0;GOTO 1760 
1120 IF Hl=96 THEN J0=1:G0T0 1760 
1130 IF H1=104THEN J0=2;GOTO 1760 
1140 FOR A=11T015;LOCATE 10,A;PRINTS 
PACE*<20);:NEXT 
1150 H2=88:T=0 
1160 ■’ instruktie/save/load 
1170 ’ 

1180 IF STRIG(JO)THEN 1180 
1190 LOCATE 10,11;PRINT"INSTRUKTIONS 
1200 LOCATE 10,12:PRINT"LOAD SCORE" 
1210 LOCATE 10,13;PRINT"SAVE SCORE" 
1220 B=STICK(JO) 

1230 IF B=1 AND H2>88 AND D THEN H2 
=H2-8 

1240 IF B=5 AND H2<104 AND D THEN H2 
=H2+8 

1250 IF STRIG(JO)THEN 1310 
1260 C=C+1 

1270 IF 04 THEN C=0;D=D+15 


4 







IF D>15 THEN D=0!T=T+1:IF T>20 
A$="#":GOTO 1610 
PUT SPRITE 7,(60,H2),D,7 
GOTO 1220 

PUT SPRITE 7,(200,0),9,6 
IF H2=88 THEN GOTO 1560 
A$="#":IF H2=104THEN 1450 
' load high score 


PRINTCHR*<12):LOCATE 4,10 
PRINT"PRESS CPLAY3 ON TAPE 
PRINT"AND PRESS [RETURN] TO 


1280 
THEN 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
RT ! ‘ 

1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
TAPE"; 

1490 PRINT"AND 
RT ! 

1500 
1510 
1520 


STA 


IF INKEY$< >CHR^(13)THEN 1390 
PRINT!PRINT"LDADING !" 

OPEN"CASïHIHELI" FOR INPUT AS#1 
IF EOF(l)=-l THEN GOTO 1610 
INPUT #1,H$:INPUT #1,HI 
CLOSE#1:GOTO 1610 
’ save high score 

PRINTCHR$(12):LOCATE 0,10 
PRINT"PRESS CREC] AND CPLAYD ON 


PRESS [RETURN] TO STA 


IF INKEY$<>CHR$(13)THEN 1500 
PRINTïPRINT"SAVING '" 

MOTOR ON:FOR A=1TO20000:NEXT: 


M 


-64 


OTOROFF 

1530 OPEN"CAS:HIHELI" FOR OUTPUTAS#1 
1540 PRINT #1,H$!PRINT #1,HI 
1550 CLOSE#l:GOTO 1610 
1560 RESTORE 

1570 PUTSPRITE7,(210,0),15,6 
1580 instrukties 
1590 •’ 

1600 PRINTCHRS(12);"MISSIE BRIEF":PR 
INTSTRING^(12,45):LOCATE0,2 
1610 IF A$="#" THEN VDP(1)=VDP(1) 

: GOTO 570 

1620 READ A$: PRINT: PRINT" "; 

1630 FOR B=ITO1500: NEXT 
1640 IF A$="*" OR A^="#" THEN 1730 
1650 FOR A=1T0LEN(A$)!PRINTCHR$(29) 
MID$(A$,A,1);CHR$(192); 

1660 IF INKEY*=CHR$(13)THEN VDP(1)=V 
-64: GOTO 570 

IF MID$ (A$, A, 1) O" "THEN BEEP 
FOR C=1T015!NEXT 
NEXT A!PRINTCHR«(29);" " 

GOTO 1610 
’ wacht op invoer 


DP (1) 

1670 
1680 
1690 
1700 
1710 
1720 

1730 LOCATE 5,22:PRINT"EEN TOETS VOO 
R VEROLG” 

1740 IF INKEY$<>""THEN 1740 
1750 IF INKEY*=”"THEN 1750 ELSE GOTO 
1580 

1760 'variabelen 
1770 ' 

1780 YB=-32 

1790 LE=l!VE=l:BX=-32!D=l 


1800 LV=4! TM=0! SC=0 
1810 •’ gekozen/score 
1820 ' 

1830 IF STRIG(JO)THEN 1830 
1840 CLS:LOCATE 7,10:IF JO=0 THEN PR 
INT"KEYBOARD SELECTED" ELSE PRINT"JO 
YSTICK SELECTED" 

1850 FOR A=1TO5000!NEXT 
1860 CLS:LOCATE 10,10:PRINT"HIGH SCO 
RE ** 

1870 LOCATE 10,12:PRINTUSING"####### 
"; HI 

1880 FOR A=1TO5000!NEXT 

1890 IF PLAY(0)THEN 1890 

1900 FOR A=0TO15:FOR B=1TO400:NEXT 

1910 CLS:SOUND 0,150: SOUND 1,126 

1920 SOUND 7,50: SOUND 8,A:NEXT 

1930 PUT SPRITE 15,(20,167),1,6 

1940 ' score/1ives/1evel 

1950 ’ 

1960 CLS:Y=S0: TM=0 :VDP(1)=VDP(1)-64 
1970 ON VE GOSUB 2660,2890,3140,3360 
,3560,3790,4040 

1980 LOCATÈ0,4!PRINTSTRING$(30,195): 
1990 FOR A=0 T03 :LOCATE 0,A 
2000 PRINTCHR$(198);SPACE$(28);CHR$( 
201); 

2010’NEXT:LOCATE 4,0:PRINTNA$ 

2020 LOCATE 15,2:PRINTUSING"LEFT:#"; 

2030 LOCATE 22,2:PRINTUSING"LEVEL:#" 
üL-E 

2040 LOCATE 1,2: PR INTUSING " SCORE: ### 

2050 VDP(l)=VDP(l)+64 

2060 ON VE GOSUB 2780,3010,3220,3470 

,3680,3880,4130,4250 

2070 IF VE=1 THÈN LOCATE 5,10:PRINT" 
DESTROY ENEMY BASE !" 

2080 IF VE>1 THEN LOCATE 10,10:PRINT 
USING"LEVEL!0#";LE 

2090 ON SPRITE GOSUB 4290: SPRITE ON 
2100 FOR X=255 TO190 STEP-3:G0SUB241 
0!NEXT 

2110 LOCATE 5,10:PRINT SPACE$(20) 

2120 •' hoo-fdlus besturing 
2130 ' 

2140 A=STICK(JO) 

2150 TM=TM+l!lF TM>280 THEN 2320 
2160 ST=ST+1:IF ST>10 THEN BT=0:LOCA 
TE 1,2:SC=SC+10:PRINTUSING"SCORE:### 
####";SC 

2170 ÖN A GOSUB2260,2180,2270,2180,2 
290,2180,2300,2180 » ’ » 

2180 D=D+l!lFD>2 THEN D=1 
2190 PUT SPRITE 2,(X,Y),15,D 
2200 PUT SPRITE 0,(BX,Y+6),D+6,10 
2210 SPRITE OFF 

2220 ON VE GOSUB 2780,3010,3220,3470 

,3680,3880,4130,4250 

2230 SPRITE ON:GOTO 2120 

2240 •’ beweging helicopter 

2250 •• 

2260 Y=Y-5!RETURN :' - omhoog 

2270 IF X<240 THEN X=X+5 
2280 RETURN :’ - rechs 

2290 Y=Y+5:RETURN :’ - omlaag 

2300 IF X>100 THEN X=X-5 
2310 RETURN :' - links 

2320 ' scherm gehaald 
2330 •’ 

2340 FOR A=1T012: PUT SPRITE A,(-32, 
-32):NEXT ’ 

2350 TM=0!VE=VE+1 

2360 LOCATE 10,10:PRINT"WELL DONE !! 

2370 FOR X=XT0-32STEP-4 
2380 GOSUB 2410!NEXT 
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2390 LOCATE 10,10ïPRINTBPACE*(20) 
2400 GOTO 1960 

2410 ’ heli besturing computer 
2420 " 

2430 IF Y<B0 THEN Y=Y+2 
2440 IF Y>80 THEN Y=Y-2 
2450 FOR Z=1T02 
2460 PUT SPRITE 2,(X,Y),15,Z 
2470 FOR B=1TO100: NEXT B,Z 
2480 RETURN 

2490 ’ demostratie vernietiging 
2500 ’ 

2510 CLS;W=0:A=0:X=255;Y=50 
2520 GOSUB 4040ÏGOSUB 4130 
2530 PLAY"vl5T3214804c 
2540 LOCATE 12,1:PRINT"-DEMO-" 

2550 A=A+lïIF A>8 THEN FOR B=1T02:A$ 
(B)=RIGHT$(A$(B),1)+LEFT$(A$(B),29)! 
NEXT:A=1 

2560 IF A<4 THEN D=1 ELSE D=2 
2570 LOCATE 10,2:IF D=1 THEN PRINT"E 
NEMY BASE" ELSE PRINT"DESTROYING" 
2580 PUT SPRITE 1,<X,Y),15,D 
2590 LOCATE 0,17:PRINTA«(1); 

2600 LOCATE 0,18:PRINTA$(2); 

2610 IF X>100 THEN X=X-2 
2620 IF X<230 AND X>140 THEN Y=Y+1 
2630 IF X<102 AND W=0 THEN FOR C=Y+6 
TO 150STEP2: PUT SPRITE 2, (X,0,4,1 
1:NEXT: FOR Z=1T02:MID*<A*(Z),11,3)= 
" " :NEXT:W=l:C=-32 

2640 IF W=1 THEN X=X-2:Y=Y-1 
2650 IF X<0 THEN CLS:A$="#":GOTO 161 
0 ELSE GOTO 2550 
2660 'scherm 1 ophouw 
2670 ' 

2680 NA$="THE MOUNTAIN AND ENEMY" 
2690 VPOKE 8204,161:VPOKE 8210,161:U 
Y(l)=50:SN=LE+6 

2700 UY(2)=120:UF=1:El=50:Y2=120 
2710 UX(1)=40:UX(2)=240 
2720 SN(1)=SN:SN<2)=-SN 
2730 FOR A=19 T022: LOCATE 0,A 
2740 E=0:PRINTSTRING$(30,101);:NEXT 
2750 A$<1)=" ac ad bd 

bc ad " 

2760 A$(2)=“adaeedaeedadbdacbeedacac 
aeecacaeedac" 

2770 RETURN 

2780 ’ scherm 1 beweging 
2790 ' 

2800 IF Y<40 OR Y>132 THEN 4290 
2810 FOR B=1T02 

2820 A$<B)=RIGHT*(A«<B),1)+LEFT$(A*( 
B),29) 

2830 UX<B)=UX(B)+LE*7 

2840 PUT SPRITE B+2,<UX<B),UY(B)),D+ 
2,D+2:IF UX(B)>255 THEN UX<B)=0 
2850 UY<B)=UY<B)+SN(B);IF UY(B)<50 O 
R UY(B)>120 THEN SN(B)=-SN(B) 

2860 NEXT 

2870 LOCATE 0,18:PRINTA^(1);A$(2) 

2880 RETURN 

2890 •' scherm 2 opbouw 

2900 ' 

2910 NA$=SPACE$<4)+"THE LASER GATE" 
2920 VPOKE 8204,144:VPOKE 8205,240 
2930 SN=LE*2:SN(1)=-SN:SN(2)=BN 
2940 FOR A=5T06:LOCATE 0,A:PRINT STR 
ING^(30,101)5 

2950 LOCATE 0,16+A:PRINTSTRING*(30,1 
01);:NEXT 

2960 UX(1)=90:UX(2)=205:UY(1)=60 
2970 UY(2)=100!UF=1 

2980 A$(1) ="tg-fg-fg-fg no tg-fg-fg-fg-fg n 
o -fg-fg-fg -fg" 

2990 A$(2)="adacbdac lm acadacbdad 1 
m adacbdadad" 


3000 RETURN 

3010 ' scherm 2 beweging 
3020 •’ 

3030 IF Y<65 OR Y>150 THEN 4290 
3040 FOR B=1 TO 2 
3050 UY(B)=UY(B)+SN(B) 

3060 PUT SPRITE B+2,(UX(B),UY(B)),D+ 
4,5 

3070 IF UY(B)<60 OR UY(B)>140 THEN S 
N(B)=-BN(B) 

3080 IF UX(B)>240 THEN UX(B)=8 
3090 A$(B)=RIGHT$(A$(B),1)+LEFT$(A$( 
B) ,29) 

3100 UX(B)=UX(B)+8:NEXT 
3110 LOCATE 0,7;PRINTA*(1); 

3120 LOCATE 0,20:PRINTA$(2)j 

3130 RETURN 

3140 'scherm 3 opbouw 

3150 NA$=SPACE$(4)+"N0RTH SEA TANKER 

II 

3160 FOR A=19T022:LOCATE 0,A:PRINTST 
RING$(30,101)5:NEXT 

3170 VPOKE 8204,65:VPOKE8206,193 :VP 
OKE 8205,65 

3180 UX(1)=17:UX(2)=17;UY(1)=150 
3190 ' 

3200 A«(l)="pqhhhiihihihihihiiiiihih 
ihihihihhhhhi" 

3210 RETURN 

3220 ' scherm 3 beweging 
3230 ' 

3240 IF Y<40 OR Y>140 THEN 4290 
3250 FOR A=19T022:LOCATE 0,A:PRINTST 
RING«(30, 101) *, :NEXT 
3260 UX(2)=UX(2)+8 
3270 UX(l)=UX(l)+(8+LE) 

3280 UY(1)=UY(1)-1-LE 

3290 IF UY(1)<45 THEN UX(1)=UX(2):UY 

(1)=145 

3300 IF UX(2)>240 THEN UX(2)=2 

3310 IF UX(1)>X THEN UX(1)=UX(1)-8-L 

E:UY(l)=UY(l)-5 

3320 A$(1)=RIGHT^(A*(1),1)+LEFT«(AS( 
1),29) 

3330 PUT SPRITE 11,(UX(1),UY(1)),15, 
11 

3340 LOCATE 0,18:PRINTAS(1) 

3350 RETURN 

3360 'scherm 4 opbouw 

3370 ' 

3380 NAS=SPACES(4)+"FLIGHT DECK" 

3390 X(1)=24:X(2)=60:TS=0:X(3)=255 
3400 VPOKE 8204,65:VPOKE8206,193 
3410 VPOKE 8205,65 

3420 FOR A=19 T022:LOCATE 0,A;PRINTS 
TRINGS(30,101);:NEXT 

3430 AS(1)="rstuvvvhihihihihiiiiiihi 
hhhhhi" 

3440 BO=0:RETURN 

3450 ' scherm 4 beweging 

3460 ' 

3470 SOUND 8,15:TL=TL+1:IF TL>8-LE A 
ND X>X(1) AND X<X(2) AND Y>130 THEN 
X=X+8:SOUNDS,0:TS=TS+1:IF BO=0 THEN 
SC=SC+250:BO=1 

3480 PUT SPRITE 12,(X(3),Y(3)+D*LE), 
D+3,D+2 

3490 IF TS>6-LE THEN 4290 

3500 X(3)=X(3)+(LE*2):IF X(3)>255 TH 

EN X(3)=-32:Y(3)=55+(RND(1)*80) 

3510 IF TL>8-LE THEN TL=1: AS(1)=RIG 
HTS(AS(1),1)+LEFTS(AS(1),29):X(1)=X( 
1)+8:X(2)=X(2)+8:G0T0 3530 
3520 IF Y<40 OR Y>135 THEN 4290 
3530 IF X(l)>40 THEN IF MIDS(AS(1),1 
,l)<>"h" AND MIDS(AS(1),1,l)<>"i" tH 
ÉN MIDS(AS(l),l,l)="h" 

3540 LOCATE 0,18:PRINTAS(1); 
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3550 

3560 

3570 

3580 

3590 


RETURN 

scherm 


ophouw 


NA$="FLATS AND ENEMY ABAIN" 
VPDKE 8204,161:VPOKE 8210,161:U 


Y(l)=50;SN=LE+6' 


3600 

3610 

3620 

3630 

3640 

3650 


UY<2)=120;UF=1;E1=50:Y2=120 
UX (1)=40:UX(2)=240 
SN(1)=SN:SN <2)=-SN 
FOR A=19 T022: LOCATE 0,A 
E=0:PRINTSTRING$(30,101);:NEXT 


ac j j j 


J J 


A$(l)=" jjjj 
j jjjj" 

3666) A$<2)=" jjjj acadaeedjjj 
j j jjjj” 

3670 RETURN 

3686) ' scherm 5 beweainq 
3690 =• 

3700 IF Y<46) OR Y>132 THEN 4290 
3710 FOR B=1T02 

3720 A$ <B)=RIGHT$(A$(B),1)+LEFT$(A$( 
B) 29) 

3730 UX(B)=UX(B)+LE*8 
3740 PUT SPRITE B+2,(UX(B),UY(B)),D+ 
2,0+2: IF UX(B)>255'THEN UX(B)=0 
3750 UY(B)=UY<B)+BN(B): IF UY<B)<50 
OR UY(B)>120 THEN SN(B)=-SN(B) 

3760 NEXT 

LOCATE 0,18:PRINTA$(1);A$(2) 
RETURN 

'scherm 6 ophouw 


3770 

3780 

3790 

3800 

3810 

3820 


NA$=”THE PIRAMIDS AND BOMBERS" 
FOR A=8204TO826)7: VPOKE A, 177: NE 
XT:VPOKE 8205,193 

3830 UX(1)=76:UX(2)=212;UX(3)=76:UX( 
4)=212:UY(1)=-32:UY(2)=-32 
3846) FOR A=19 T022: LOCATE 0,A: PRINTS 
TRING*(30,101)5:NEXT 
c>850 A$ (1) =" w>c wx wx 

wx " 

3866) A$(2)="weex wx k weex wx weex 
kweex" 

3870 RETURN 

3886) ' scherm 6 beweqina 
3890 •' 

3900 IF Y<46) OR Y>136) THEN 4290 
3910 FOR B=1T02 

3920 A*(B)=RIGHT$(A$(B),1)+LEFT$<A*( 
B) ,29) 

3930 IF UY(B)<56) THEN UY (B) = 158: UX (B 
)=UX(B+2) 

3940 UY(B)=UY(B)-(LE*3)-(B*2) 

PUT SPRITE B+7,(UX(B),UY(B)),D+ 


3950 

7,11 

3966) 

3970 

3980 

3990 

4000 

4010 


IF UX(B+2)>240 THEN UX(B+2)=4 
UX(B+2)=UX(B+2)+8 
NEXT 

LOCATE6), 18; PRINTA* (1 ) 

LOCATE0,19:PRINTA$(2) 

FOR B=1T02;IF UX(B)>X THEN UX(B 
)=UX(B)-2 

4020 IF UX(B)<X THEN UX(B)=UX(B)+2 
4030 RETURN 
46)46) ' scherm 7 ophouw 
4050 ■ 

4060 
4070 
4080 
4090 
kkk 

4106) A$(2)="jjjaeed Imlmkkkk aeecadz 
zzzac " 

4110 FOR A=19T022:LOCATE 
RING*(30,122);:NEXT 
4120 RETURN 

4130 ’ scherm 7 beweging 
4140 =■ 


VPOKE 8205,177;VPOKE 8204,65 
NA*=SPACE*(4)+”THE ENEMY BASE" 
X(1)=6):YB =-32 

A*(l)="jjj bc bc k 


0,A;PRINTST 


4150 IF Y<40 OR Y>130 THEN 4290 
4160 IF XB>X(1) AND XB<X(l)+25 AND Y 
®>140 THEN FOR B=1T02:MID*(A*(B),X(1 
-SPACE* (4) ; NEXT: SC=SC+500; XB 

4170 PUT SPRITE 1,(XB,YB),4,11 
4180 TL—TL+l:iF TL>10-(LE#2) THEN TL 
-1:F0R B=1T02:A*(B)=RIGHT*(A*(B),1)+ 
LEFT*(A*(B),29):NEXT!X(1)=X(1)+8 

4190 IF STRIG(JO) AND B0=l THEN XB=X 
;YB=Y+10:BO=0 

4200 IF YB>40 AND YB<192 THEN YB=YB+ 
5;XB=XB-1;IF YB>188 THEN YB=-32 
4210 IF X(l)>8 THEN FOR B=1TÖ2;IF M 
ID* (A* (B) , 1, 1 )< >" '• THEN MID*(A*(B), 
1,1)=" ":NEXT ELSE NEXT ' 

4220 LOCATE 0,17;PRINTA*(1); 

4230 LOCATE 0,18;PRINTA*(2): 

4240 RETURN 

4256) ’ volgende basis 

4260 =* 

LOCATE 12,10: PRIN 
T LEVEL 4"; SC=SC+ (LV)K100) : GOTO 44 
96) 

LE=LE+1:VE=1:G0T0 1960 
’ game over 


4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 


32);NEXT 


SPRITE OFF 

LOCATE 13,10;PRINT"CRASH" 

FOR B=YT0i91 

SOUND 0,B;SOUND 1,0:SOUNDS,15 
PUT SPRITE 2,(X,B),6,l:NEXt 
LV=LV-1;LOCATE 15,2: 

PRINTUSING"LEFT:#"5 LV;SOUND 8,0 
FOR A=1T012;PUT SPRITE A,(-32,- 


4390 

4400 

4410 

4420 

4430 

FT" 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

####' 


’ 1ives over ? 

LOCATE 13,10:PRINTSPACE*(5) 

IF LV=1 THEN A*="" ELSE A*="S" 
LOCATE 9,9: PRINTLV’LIVE"A*" LE 


IF LV=0 THEN 4490 
LOCATE 11,11;PRINT"TRY AGAIN" 
FOR A=1TO66)00; NEXT 
LOCATE 11,11:PRINT"NO PANIC " 
FOR A=1TO56)6)0; NEXT: GOTO 1900 
LOCATE 11,11:PRINT"GAME OVER" 
LOCATE 1,2;PRINTUBING"SCORE;### 

. SC; SOUND 7,200 

4510 PLAY " T226)L 10S1M1006)0O4FFFGGGEEF 
FG-GEEEFFDDF 

4520 FOR A=1T0 56)6)0; NEXT 
4530 IF SC<HI THEN VDP(1)=VDP(1)-64; 
GOTO 510 


4540 

4550 

4560 

4570 

4586) 

4590 

4600 

4610 


naam intik routine 


joy/key omhoog einde invoer 
,, omlaag laatste letter weg 
,, links/rechts zoeken 
space/vuur letter vast leggen 


CLS;A*="ABCDEFGHI J KLMNOP0RSTUVW 
XYZ.1 234567890/- ! ABCDEFHI" 

4626) B*="cdcdcda-f o3cd4 bgegdggega—a+ 


a-" 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

D>2 

4700 

4710 

4720 

4730 


A=USR(0) 

X=14: H*="’’; LOCATE 14,20 

PR INTSTRI NG* (10,45);: SÓUND7,206) 

PL A Y "tl 06)s9112m36)00D4 

LOCATE 11,4:PRINT"SUPER HELI" 

LOCATE 11,5;PRINT"zzzzzzzzzz" 

B=B+1;IF B>10,THEN D=D+1:B=0:IF 

THEN D=1 

PUT SPRITE 1,(125,60),15,D 
LOCATE 12,10;PRINTMID*(A*,X,7) 
LOCATE 15,11:PRINT"-" 
A=STICK(JC)) 
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4740 E=E+1:IF E>5 THEN E=0 
4750 IF STRIG(JO)AND E=5 THEN IF LEN 
THEN H^=H$+MID$(A$,X+3,1) 
47é>0 IF NOT PLAY(0) THEN PLAY’'xb$s " 
4770 IF A=1 THEN VDP(1)=VDP(1)-64:Hl 
=SC:H$=SPACE$(11-LEN < H$ >)+H$:GOTO 51 
0 

4780 IF A=3 THEN X=X-1;IF X<=1 THEN 
X=42 

4790 IF A=7 THEN X=X+1:IF X>=42 THEN 
X=1 

4800 IF A=5 THEN IF LEN(H$)>0 THEN H 
*=LEFT$(H^,(LEN(H$)-1)):L0CATE14,20; 
PRINTSTRING*(11,45)! 

4810 LOCATE 2,20 

4820 PRINT"HIGH PLAYER ";H$ 

4830 GOTO 4690 
4840 •' error routine 
4850 ’ 

4860 SCREEN 0;COLOR 15,1,1:DEEP 
4870 WIDTH37;L0CATE8,2:KÈY ON 
4880 PRINT"** SUPER HELI ERROR **" 
4890 LOCATE 0,6 
4900 PRINTSTR ï NG$(37,42); 

4910 LOCATE0,9 

4920 IF ER=rTHEN PR INT "DATA FOUT IN 
REGEL" ;R1*, "OF IN"R2; END 
4930 ON ERROR GOTO 0 
4940 PRINT"TOT ZIENS": END 
4950 ’ data inetrukties 
4960 =■ 

4970 DATA"JE KRIJGT EEN HELICOPTER T 
ER BESCHIKKING OM EEN OPDRACHT TE 
VOLBRENGEN 

4980 DATA"BEVRIJD 4 GEHEIME AGENTEN 

VAN EEN VIJANDELIJK VLIEGDEKSCHIP 

4990 DATA"DIE BESCHIKKEN OVER EEN SU 

PER-BOM DIE NODIG IS VOOR HET VE 

RNIETIGEN VAN DE BASIS 

5000 DATA"DE BASIS LAAT ZICH NIET ZO 

MAARBOMBARDEREN , HET IS BESCHERMDDO 

OR VERDEDIGINGS SYSTEMEN 

5010 DATA"$","SCHERM 1; MOUNTAINS AN 

D ENEMY 

5020 DATA"ONTWIJK DE VIJANDELIJKE UF 
O’S DIE JOU PROBEREN TE RAMMEN 
5030 DATA"SCHERM 2; LASER GATE 
5040 DATA"VLIEG TUSSEN DE LASERS ZON 
DER TEGEN DE GROT TE CRASHEN 
5050 DATA"SCHERM 3: NORTH SEA TANKER 
5060 DATA"ONTWIJK VIJANDELIJKE RAKET 
TEN DIE JOU WILLEN ONDERSCHEPPEN" 
5070 DATA”$","SCREEN 4: FLIGHT DECK 
5080 DATA"LAND OP HET VLIEG-DEK SCHI 
P ENNEEM EEN GEHEIM AGENT EN EEN BO 
M MEE OM DE BASIS TE VERNIETIGEN" 
5090 DATA"SCREEN 5; THE FLATS AND EN 
EMY AGAIN 

5100 DATA"DE VIJAND ZAL WEER PROBERE 

N JETE RAMEN DUS ONTWIJK ZE 

5110 DATA"SCREEN 6; PIRAMID AND BOMB 

ERS 


5120 DATA”ONTWIJK WEER DE AFGESCHOTE 
N RAKETEN EN VLIEG NIET TEGEN DE 
PIRAMIDES 


5130 DATA"SCREEN 7; ENEMY BASE 
5140 DATA"VERNIETIG HET HOOFD GEBOUW 
VANDE VIJANDELIJKE BASIS",,"SUCCES 
MET DE OPDRACHT" 

5150 DATA"#" 


5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 


’ data controle 

DATA 744, 783,1922,1886,2040 
DATA 640,1839, 405, 393,1992 
DATA 711,1242,1402,1214,1194 
DATA 748;1155,1333,1725,1273 
DATA 895, 543, 502,1793,1422 
DATA 1422,1422,1422, 956, 263 


5240 

DATA 

739, 

128, 

764, 

263, 

643 

5250 

DATA 

128, 

633, 

0, 

1468, 

0 

5260 

DATA 

639, 

es 

1277, 

0, 

480 

5270 

DATA 

640; 

0, 

0, 

71, 

629 

5280 

DATA 

304; 

443, 

1145, 

0,895 

,0 


5290 ’ data karakters 
5300 ’ 

5310 DATA 01,0d, If , 1-f , 1-f ,7f ,-f-f ,ff 
5320 DATA 02,03, 17,37,3T , 7t,-f-f ,-f-f 
5330 DATA c0, e0, ec , f c ,-f e, f e, f-f ,-f f 
5340 DATA c0, e0,-f 0, e4, ee,-f e,-f-f , f-f 
5350 DATA 

5360 DATA f f ^ 7-f ^ 7-f i 1-f i 3-f i 1-f i 05^ 01 
5370 DATA -f-f , f e, f e,-f 8,-f C,-f 0, d0,80 
5380 DATA 00,00, 00,00,00, 18,7e, -f -f 
5390 DATA 00 ^ 00,00 ^ 00 ^ 00 ^ 0c,7eif f 
5400 DATA ff ,ff ,ff ,e7,e7,-ft,-ft,ff 
5410 DATA 18,3c,3c, 18,3c;7e,e7’,7e 
5420 DATA 01;03;7fiddic9;d5;ddiff 
5430 DATA 00,80,fc,86,f6,f6,8e,fe 
5440 DATA f f , da, ae, ca, ea, 7-f , 03,01 
5450 DATA fe,66,ae,b6;66;fc;80;00 
5460 DATA 00,00,Ie,12,7f;ff,ff,3f 
5470 DATA 00,06,18,70,fc,fe,ff,fc 
5480 DATA IF,IC,FF,FF,FF,FF;7F;7F 
5490 DATA C0,40;C2,FF,FF,FF,FF,FF 
5500 DATA 00,00,10,FF,FF,FF,FC,F0 
5510 DATA 00,00,82,FF,FF,FF,00,00 
5520 DATA 00,00,21;FF;FF,00,00;00 
5530 DATA 01;03;07;0f;If;3f,7f,ff 
5540 DATA 80,c0,e0,f0;f8,fc,fe,ff 
5550 DATA DF,DF,DF,00,FB,FB,FB;00 

5560 DATA df;00;fb;fb;fb;00;df;DF 

5570 DATA FB;FB,FB,00,DF,DF,DF,00 
5580 DATA FB;00,DF,DF;DF;00,FB;FB 
5590 DATA f f , 04,3f ; 4f ; 8f ; df , 7f ; 3e;-'H 
5600 DATA 88, 7f , 00, 00; 00', 00,00,00 
5610 DATA e0,01,03,ff,80,80,00,00 
5620 DATA 00,80,00,00,00,00,00,00 
5630 DATA 3f , 04, 3f , 4f , 8f , df , 7f , 3e: H2 
5640 DATA 88,7f,00,00,00,00,00,00 
5650 DATA 80;01,03,ff,80,80;00,00 
5660 DATA 00,80,00,00,00,00,00;00 
5670 DATA 00; 03; 06; 0d; 3b, f f ; ea’, 3f : UI 
5680 DATA 00,00,00,00,00,00,00;00 
5690 DATA 00,80;c0;e0;f8,fe,ae;f8 
5700 DATA 00,00,00;00; 00 ; 00 , 00,00 
5710 DATA 00,03,06,0f,3f,ff,ea,3f:U2 
5720 DATA 00,00,00,00;00,00;00;00 
5730 DATA 00,80,c0,60,b8,ff,ae;f8 
5740 DATA 00,00,00, 00; 0000, 00; 00 
5750 DATA 00,20;40,80;20,40,80;20:LS 
5760 DATA 40,80,20,40,80,20,40,80 
5770 DATA 00,00,00,00,00;00;00,00 
5780 DATA 00,00,00,00,00,00;00,00 
5790 DATA 08,0C,0A,09,08,08,08,08:MS 
5800 DATA 18,00,77,85,65,15,E7,00 
5810 DATA 08’, 18; 28; 48; 88,08; 08; 08 
5820 DATA 0C;00;77,42,72,42,42,00 

5830 DATA IF,3F,FF;FF,FF,FF,1F;00;HA 
5840 DATA 00,00,00;00;00;00; 00 ; 00 
5850 DATA 00,FF,C0,C0,80;80,00;00 
5860 DATA 00,00,00,00;00,00,00;00 
5870 -’ 

5880 ’******************** 

5890 ’* EINDE SUPER HELI * 

5900 ’******************** 
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TOPOGRAFIE 
STEDEN ZOEKEN IN NEDERLAND 

Bij dit spel komt het naast de kennis van 
ons eigen land ook in belangrijke mate aan 
op vaardigheid in het besturen van de he- 
licopter, waarmee de opgegeven steden moe¬ 
ten worden aangedaan. De heli, welke naar 
keuze kan worden bestuurd met een joystick 
of met de cursortoetsen, start vanaf een 
vliegdekschip voor de kust (basis). 

Op het beeldscherm wordt het reisdoel 
aangegeven. U moet proberen om die stad zo 
snel mogelijk te bereiken. Is die stad 
eenmaal gevonden, dan landt de heli auto¬ 
matisch. Op het beeldscherm verschijnt dan 
het volgende reisdoel. Nadat de heli op¬ 
nieuw is opgestegen moet u de besturing 
weer overnemen. 

Gedurende de hele reis wordt de km-stand, 
alsmede het brandstofverbruik bijge¬ 
houden. Bij aanvang is de brandstoftank 
gevuld met 800 liter. Zodra u op reserve 
komt (150 liter) wordt u gewaarschuwd. Nu 
oet 20 snel mogelijk worden teruggekeerd 
naar de basis volgens de aangegeven 
aanvliegroute. Bent u te laat... dan is 
dat jammer. Bij een tijdige landing wordt 
de tank weer bijgevuld zodat de reis kan 
worden voortgezet. 

Kies altijd de kortste route en gebruik zo 
min mogelijk brandstof. Aan het einde van 
de vlucht wordt de efficiëntie opgegeven. 
Deze is 100% wanneer alle opdrachten snel 
en efficiënt zijn uitgevoerd. 

Succes! 
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Beeldscherm: WIDTH 36 
30 STEDEN ZOEKEN IN NEDERLAND » 

^x) ' )|C ^ 

G. W. J. V. d. Pol . Nijmegen* 
1987 MSX Gids Amsterdam * 

/ K' ' 3r ^ 

80 ’ *********»i|[*********)|:##)|c)|c##*#j|[* 
90 •' 

100 ’+++++ Introductie +++++ 

110 ’ 

120 SCREEN 2:C0L0R1,4,14:CLS 
130 DEFINT A-Z ' ' 

140 LINE(14,8)-<241,32),10,BF 

150 LINE<17,ll)-(238,29),7 ;bF 

160 OPEN "GRP:"FOR OÜTPUt AS#1 

170 PRESET<25,16) ,7 

180 PLAY'*B1T80M500V12O6L16C 

190 PRINT#1,"STEDEN ZOEKEN IN NEDERL 

AND 

200 DRAW"C2BM20,140S8H1U2E2U3E1U3E1U 
5E1U5E1U5E1U5E1Ü3R1D1R1D3R2D4R2D3L2D 
3L1D2R3E5U5L3U2E1U6E3R3D1R2U1R4D1F2R 
1D6G1D3L4D2L1D3R3E1F1D4G3L1D2F2G2H1L 

^D-w* 

210 DRAW"C2BM20,140SSR2E1R1F1R1E2R1U 
3R2U1R2D1R2U2R2F2R1F1D3G1D4G2D3R1D2R 
1D1R4U2R2U2L1U2H2U1E2U4H1U4L1U3H2 
220 PAINT(20,139),2 

230 T$="MET ÈEN HÈLIKOPTERMOET U TEL 

KENB EENSTAD OPZOEKEN.HOE DAT 

IN ZIJNWERK GAAT WORDT UOP DE VOLG 

ENDE PAGVERTELD. 

.VEEL PLEZIER. . . " 

240 FOR J=1 TO 20:A$="" 

250 FOR 1=1 TO 8 

260 READ A:A$=A$+CHR$(A) 

270 NEXT I 

280 SPRITE$<J)=A$:NEXT J 
290 1=48:A=3:B=ll!D=104!COLOR 15 
300 GOSUB 3160 
310 FOR J=104 TO 240 
320 SWAP A,B 

330 PUT SPRITE0, <J,I), 1,A 
340 IF JriOD8<>0tHEN 370 
350 C=C+1ïPRESET<J-8,I) 

360 PRINT#1,I1IDS<T$,C, 1) 

370 NEXT J 

380 IFI>168 THEN 560 
390 1=1+8:AA=7:BB=15 
400 IF 1=88 THEN D=44 ELSE D=104 
410 FOR H=240 TO D BTEP-1 
420 SWAP AA,BB 
430 PUT SPRiTE0,(H,I),1,AA 
440 NEXT H ... 

450 IF 1=88 THEN 470 
460 1=1+8:GOTO 310 
470 BEEP 

540 SPRITEl , (36,88) ,8, 17: GOSUB 

490 PUT SPRITE2 ,(68,58),8,17:GOSUB 

500 PUT SPRITE3,(26,100),8,17:G0SUB 
540 

510 PUT BPRITE4,(54,103),8,17:G0SUB 
540 

520 PUT SPRITE5,<58,158),8,17:GOBUB 

530 GOSUB 3160:GOTO 460 
540 PLAY"B1T80M500V12O6L16C 
550 FOR K=0 TO 2000:NEXT:RETURN 
560 BEEP; DRAW " C8BI1118,186S4R96D1L96 
570 FOR K=0 TO 5000:NEXT 
580 CLS:CLEAR 
590 =• 


600 '+++++ Tekstpagina='s +++++ 

610 

620 SCREEN 0:WIDTH 37:C0L0R 15 4 4 
630 KEY OFF:CLS:DEFINT A-Z 
40 Met behulp van een joy 

stick D-f decursortoetsen moet de hel 
ikopter naarhet opgegeven reisdoel 
worden gedirigeerd.De te volgen rout 
e moet zo kortmogelijk worden gehoud 

650 PRINT:PRINT"Eenmaal bij de juist 
e stad aangekomenlandt de heli autom 
atisch. Ook stijgthij vanzei-f weer 
op nadat het ni euwereisdoel is ODoeo 
leven. 

660 PRINT:PRINT" De gevlogen kil ome 
ters worden bijgehouden,evenals het 
brandstofverbruik.U krijgt 800 liter 
brandstof mee. Wanneer de tank leeg 

aangegeven. 

6/k PRINT U moet dan weer snel te 
rug naar debasis(vliegdekschip). Vol 
g daartoe dedoor de pijl aangegeven 
aanvliegroute"; 

680 PRINT"Na te zijn bijgetankt kan 
oe weg danweer worden vervolgd. 

690 PRINT:PRINT"Druk SPATIEBALK in v 
oor volgende pag."; 

700 IF STRIG(0)=0 GOTO 700 
710 CLS 

720 PRINT" Het is de kunst om e 

fficient teyliegen d.w.z. zo weinig 
mogelijk kilometers af leggen bij e 
en zo laag mogelijk brandstofverbrui 

730 PRINT:PRINT" Bij dit spel kunt 
u kiezen uit tweemoei 1ijkheidsgraden 

740 PRINT:PRINT"<1) De te zoeken st 
eden zijn met ’I’aangegeven zodat d 
® n"etzo moeilijk is. E 

chter verdwijnt wel steeds de markeri 
ng van het opgegevenreisdoel. 
p0 PRINT:PRINT"(2) De kaart van Ne 
derland is geheelblind, zodat het wa 
t moei lijker wordtom hét gegeven rei 
sdoel te vinden. 

760 PRINT"Is de plaats eenmaal ge 
vonden danwordtdeze daarna wel weer 
met een aangegeven, 

770 PRINT:reiNT" 
e (1 of 2). 

780 K$=INKEY*:IF K*=""G0T0 780 
K=VAL(K$) 

IF K<1 OR K>2 GOTO 780 
IF K=2 THEN Q=6 ELSE Q=4 


Maak nu Uw keuz 


790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 


'+++++ Tekenen landkaart 


SCREEN 


2,0:COLOR 4,4,13:CLS 
OPEN"GRP:"FOR OUTPUT AS#1 
FOR J=1 TO 20;A$="" 

FOR 1=1 TO 8 
READ A:A$=A$+CHR^(A) 

NEXT I 

SPRITE$(J)=A*:NEXT J 
DRAW-C10BM79,191E39R42U14R40U62R 
20U60R20U4E12R3D191L170 
930 PAINT(80,191),10 

940 DRAW"Cl2BM151^150D3G7L5H4L3G1L7H 
5U2E5R10F4R4E2R2F2R3D1 
950 DRAW"Cl2BM156,149D2R4U5L1U3E3R2D 
3R2E4R2D3G2D2R3E3U3R3D7F3R2D2R6E1R3D 
3F2R2F2R2D2G2D6G3D6G3D4F4R2E2R1F1R2F 

1R3 
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960 DRAW''C12BM210, 188U2H3U2R3E2U3H4L 
4U6R2E6U2L3U6E5U9H2U4H4U4H3U3H2E2R3U 
3E2R3F3R2E4R4E4U2H4U2E4U2E4R2U5E1U4H 
2U4L3G2L4H2U4E2H2U4R10U12E2U4E2U4H2U 
2 

970 DRAW"Cl2BM156,149U6E1U8H1U2L4U2R 

2F1R1E5R8E3U2L3G3L4H5L2H2L3H3U2E1E4U 

4E4U4E2U4E2U8E2U6E2U8E2U18R2F4E2R2F2 

D6F2R2F2D4G4L2G2D4F2D4G4D2 

980 DRAW"Cl2BM174,80F4R4F4R4E10U10H2 

E6L2G2L4H4U4E2U2R2U3L5H2L2H1U2E2U4H2 

U4E1U5E1U3E10R4E2R2D4R3U4R5E2R5E1R3F 

2D2F3R4D2F2R2D6G2D6 

990 PAINT<130,150),12:PAINT(200,187) 
, 12 

1000 DRAW"C12BM188,86H4L2H2L1U2E13R2 
F4D7610 

1010 PAINT(190,80),12 

1020 DRAW"C12BM156,149U3L3H1L3H1L6H2 

L6H4U1E3R2F4R5U3L5Ü2R7F1D4F2D2R3F1R3 

D3 

1030 PAINT(140,140),12 

1040 DRAW"C12BM150,133R4D2F1D3L2H3U3 

1050 PAINT(151,134),12 

1060 DRAW”C12BM149,131L2H1L2H2L3G2H2 

E4F1R6F3D3 

1070 PAINT(140,126),12 
1080 DRAW"C12BM142,120E4R1F3R2F3R2F2 
D1G2L2H1L3H2U4L2G2L2H1U1 
1090 PAINT(144,120),12;PAINT(152,122 
),12 

1i00 DRAW"C12BM166,36U6E2U2R3F2D2G2D 
4L5 

1110 PAINT(170,30),12 
1120 DRAW " C12BM 170 ', 22E6R2D2G4L4 
1130 PAINT(174,20),12 

1140 DRAW"Cl2BM179,14U2E3R2E3R2G4L2G 
2D2L1U2E2R2E4 

1150 DRAW"C12BM192,6U2R6E1R3D1L2G2L7 
U1R7 

1160 DRAW"Cl2BM206,4U2R662L4U1R5 
1170 DRAW"C12BM216,0R3D1L3 
1180 DRAW"C12BM184,58F4D6 
1190 DRAW"C12BM176,42R1E8R1 
1200 '+++++ Rivieren ++++++ 

1210 PUT SPRITE 1,(200,152),4,18 
1220 PUT SPRITE 2,(200,160),4,19 
1230 PUT SPRITE 3,(200^168),4,20 
1240 PUT SPRITE 4,(196,176),4^19 
1250 PUT SPRITE 5,(194,184),4,18 
1260 DRAW"C4BM170,124R6E2R6È2Ü2R4F2R 
6F6DBF2D10G2D4 

1270 DRAW"C4BM150,108F4R14E6R6E2R10E 
1R5F1R4F3D7R6F3R4F4R4F2D6F4D4G2D8G2D 
6F4D6F2D6F2D8F4D4 

1280 DRAW"C4BM153,150F4L2H4R1F7D6G8D 
6G4D4G8 

1290 DRAW " C4Bf1164,112D4F4R6E2R4E4R16 
E1R5 

1300 DRAWC4BM206, 104E4U4E2U8H2U4H2U 
6H4L4 

1310 DRAW"C4BM162,76R4F2R2F2R2 
1320 IF K=2 GOTO 1430 
1330 ’+++++ Steden +++++ 

1340 FOR J=6 TO 28 

1350 FOR H=1 TO 3 

1360 IF H=1 THEN READ B« 

1370 IF H=2 THEN READ Xi 
1380 IF H=3 THEN READ 
1390 NEXT H 

1400 PUT SPRITE J,(VAL(X$),VAL(Y*)), 
15,17 

1410 NEXT J 
1420 RESTDRE 3570 

1430 DRAW"C11BM116,52D4R14G2L16U2R2U 
2R1U2R1 

1440 PAINT(115,57),11 
1450 PRESET(135,50) 


1460 DRAWC9BM135,55E2G2F2H2R20 
1470 PUT SPRITE 0,(120,50),1,3 
1480 BX=120:BY=50s BQ=1■C$="BASIS" 
1490 FOR 1=0 TO 5000:NEXT 
1500 X X =-30:YY=0:E=5:Z Z=800;Z=800;R= 
800 

1510 PRESET(12,10):COLOR 7 
1520 PRINT#1,"REISDOEL; 

1530 PRESET(12,40) 

1540 PRINT#l,"iN TOTAAL 
1550 PRESET(12,60) 

1560 PRINT#1,"GEVLOGEN. 

1570 PRESET(12,80) 

1580 PRINT#1,"BRANDSTOF 
1590 PRESET(12,90) 

1600 PRINT#1,"RESERVE; 

1610 PRESET(12,120) 

1620 PRINT#1,"VERBRUIK: 

1630 ’ 

1640 •’+++++ Spel cyclus +++++ 

1650 ’ 

1660 GOSUB 2090 
1670 GOSUB 2260 
1680 GOSUB 3150 

1690 X=120;Y=40:D=3:V=3:M=8:N=0 

1700 PUT SPRITE 0,(X,Y),1,3 

1710 FORI=0TO100:NEXt 

1720 PUT SPRITE 0,(X,Y>,1,11 

1730 IFSTICK(0)>0tHENV=0;GOTO 1770 

1740 IFSTICK(1)>0THENV=1;GOTO 1770 

1750 IFSTICK(2)>0THENV=2:GOTO 1770 

1760 FORI=0TO100:NEXT:GOTO 1700 

1770 S=STICK(V):IFS >0THEND=S 

1780 IFB>4THEN1850 

1790 IFS=0THENW=0 

1800 IFS=lTHENY=Y-2:W=33 

1810 IFS=2THENY=Y-2:X=X+2;W=66 

1820 IFS=3THENX=X+2;W=47 

1830 IFS=4THENY=Y+2:X=X+2:W=66 

1840 GOTO1890 

1850 IFB=5THENY=Y+2: W=33 

1860 IFS=6THENY=Y+2:X=X-2;W=66 

1870 IFS=7THENX=X-2:W=47 

1880 IFS=8THENX=X-2;Y=Y-2:W=66 

1890 IFX<100THENX=100:W=0 

1900 IFX>240THENX=240;W=0 

1910 IFY>182THENY=182;W=0 

1920 IFY<4THENY=4:W=0 

1930 SWAPM,N 

1940 PUTSPRITE0,(X,Y),1,D+M 
1950 P=(TIME/3):Z=ZZ-P 
1960 IFZ<1GOTO2760 

1970 IFZ<151ANDQ>1ANDE<28GOTO2460 
1980 U=(U+W/10) 

1990 IFQ>1THEN2010 
2000 IFDO7THEN1770 

2010 IFABS(X-XX)>QORABS(Y-YY)>QTHEN1 
770 

2020 ZZ=Z;BEEP;IF Q=1 THEN 2610 
2030 GOSUB 2110 
2040 GOSUB 2260 
2050 Y=Y-4;S=3:D=3 
2060 GOSUB 3150 
2070 GOTO 1780 
2080 •' 

2090 •’+++++ Reisdoelen +++++ 

2100 •’ 

2110 E=E+1 

2120 PUT SPRITE E,(XX,YY),9,17 

2130 IF E=30THENB«="";GOTO 2260 

2140 FOR K=E TO E+1 

2150 FOR H=1 TO 3 

2160 IF H=1 THEN READ B$ 

2170 IF H=2 THEN READ X$ 

2180 IF H=3 THEN READ Yf 
2190 NEXT H 

2200 XX=VAL(X4:) ; YY=VAL(Y4U 
2210 IF E=29 THEN Q=2 
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2220 RETURN 
2230 ’ 

2240 =‘+++++ Wisselen tekst +++++ 
2250 ’ 

2260 LINE<20,20)-(116,28),4,BF 
2270 LINE(20,50)-(108,58),4,BF 
2280 LINE(20,100)-(108,108),4.BF 
2290 LINE(20, 130)-(108^138),4^ BF 
2300 IF Z<0 THEN Z=0 ’ ’ 

2310 PLAY"81T80M500V1206L16CFCF 
2320 PRESET(20,20);COLOR 15 
2330 PRINT#1,Bi 
2340 PRESET(12,50) 

2350 PRINT#l,U"Km 
2360 PRESET(12,100) 

2370 PRINT#1,Z"Liter 
2380 PRESET(12,130) 

2390 PRINT#l,R-Z"Liter 
2400 FOR K=0 TO 4000:NEXT 
2410 IF E=30 THEN 2970 
2420 RETURN 
2430 •’ 

2440 =•+++++ Bijtanken heli +++++ 

2450 

2460 BEEF'; ZZ=Z: SWAF' B$,C$:GOBUB 2260 
2470 BEEP:BEEP;BEEP:BEÈP 
2480 LINE(6,146)-(96,162),14,BF 
2490 FDR 1= 0 TO 4 ■ 

2500 PRESET(14,150):C0L0R8 
2510 PRINT#1,"BIJTANKEN! 

2520 FOR J=1 TO 200:NEXT J 
2530 LINE(6,146)-(96,162),14,BF 
2540 NEXT I ... 

2550 GOSUB 3150 

2560 SWAP XX,BX:SWAP YY,BY:SWAP Q,BQ 
2570 GOTO 1980 ’ 

2580 ' 

2590 '+++++ Tank vullen +++++ 

2600 =* 

2610 FOR 1=0 TO 2000 

2620 IF IMOD 80=0 THEN PLAY”SlT80li50 

0V12O7C32 

2630 NEXT I 

2640 PRESET(16,150):COLORB 
2650 PRINT#1,"tANK VOL! 

2660 FOR J=1 TO 2000:NEXT J 
2670 LINE(6,146)-(96,162),14,BF 
2680 R=R+800:Z2=800:Z=Z+800 
2690 SWAP B$,C^:GOSUB 2260 
2700 SWAP XX,BX:SWAP YY,BY;SWAP 0,BQ 
2710 Y=Y-8;S=3;D=3:GOSUB 3150 
2720 TIME=0:GOTO 1700 
2730 =• 

2740 •'+++ Neerstorten heli/Einde + 
2750 ’ 

2760 SOUND 8,0:SOUND 9,0:SOUND 10,0 
2770 PLAY •• S10T200M510V1201L16CRCRCRR 
CRCRCRRCRCRCRRCRCRCRRCRCRC 
2780 LINE(12,10)-(100,18),4,BF 
2790 B$="TANk LEEG":GÖSUB'2260 
28001BEEP:SOUND 6,2:SOUND 7,31:SOUND 

2810 FOR I=Y TO 184 

2820 PUT SPRITE 0,(X,I),1,5 

2830 FOR J=0 TO 20:NÈXT’ 

2840 PUT SPRITE 0,(X,I),1,13 
2850 FOR H=0 TO 20:NÈXT 
2860 NEXT I 

2870 SOUND 6,0:SOUND 7,0 
2880 SOUND 6,10:SOUND 7,31 
2890 FOR 1=320 TO 0 STEP-1 
2900 SOUND 10,I/20:NEXT 
2910 PRESET(26,150),14:C0L0R8 
2920 PRINT#1,"j AMMER! 

2930 FOR 1=0 TO 4000:NEXT 
2940 LINE(6,146)-(96,162),14,BF 
2950 BEEP:PRESET(14,150):C0LÖR8 
2960 PRINT#1,"EINDE'SPEL":GOTO 3030 


2970 F=800000!/(u+(R-Z)#3) 

2980 IF F>100 THEN F=100 
2990 LINE(4,146)-(148,162).14 BF 
^ = COLORB' ' 

3010 PRINT#1, "EtTiciëtie"F"7. 

3020 LINE (12,10)-(116,18),4,BF 
13>“<250,28) , i4iBF 

.i040 PUT SPRITE 11,(0,208) 

3050 PLAY"S1T80M500V12O6L16C 
3060 PRESET(12,17),14:COLOR 8 

RUKKEN^^*^^^^’SP. BALK IND 

3080 IF STRIG(0)=0 goto 3080 
3090 CLEAR:CLS 
3100 IF STRIG(0) GOTO 3100 
3110 GOTO 620 
3120 =• 

3140 ®®l*-iid helicopter +++++ 

3150 BEEP:TiriE=0 
3160 SOUND 0,178 
3170 SOUND 1,43 
3180 SOUND 2^211 
3190 SOUND 3,72 
3200 SOUND 4,54 
3210 SOUND 5 ;31 
3220 SOUND 6; 27 
3230 SOUND 7,32 
3240 SOUND 8^16 
3250 SOUND 9,6 
3260 SOUND 10,8 
3270 SOUND 11,23 
3280 SOUND 12,1 
3290 SOUND 13^14 
3300 RETURN 
3310 =• 

3320 ’++++^ Data sprites +++++ 

3330 ' 

3340 DATA 144,120,56,56,60,18,16,16 
—16,18,28,60,60,56,72,136 
^'.,i60 DATA 64,32,30,255,30,2; 1,0 
—Z® 128,64,56,63,252,28;2,0 

^^80 DATA 8,8,72,60,28,28,30,9 ‘ 

3390 DATA 17,18,28,60,60,56,72,8 

0 . 4 , 8 : 120 , 255,120 64,128 
R™ 8.72,56,60,60,28,18,17 
R^Z^ 18,60,56,56,120,144,16,16 
0.2,28,252,63,56,64,128 
5440 DATA 1,2,30,255,30, 32 ;64 0 

R^Z^ ^6,72,56,60,60,28, 18, 16 
•i460 DATA 8,8,9,30,28,28,60,72 ' 

3470 DATA 1,2,28,253,63,56,64,0 
3480 DATA 0,128,64,120,255,120,8,4 
3490 DATA 0,64,56,63,253,28,2,1 
3500 DATA 0,0,24,24,24,0,0,0 ’ 

-:-.510 DATA 8, 8, 8, 8,8; 8,8,8 ' 

3520 DATA 8,8,8, S; 8;16,32,32 
3530 DATA 32,32,32,32,32,64,128,128 

o540 • 

3550 •'4-++++ Data steden +++++ 

3560 

3570 DATA AMSTERDAM,169,77 
3580 DATA ASSEN,215;31 ’ 

3590 DATA ARNHEM,199,99 
3600 DATA Maastricht;195,176 
3610 DATA MIDDELBURG, 132 ;134 
3620 DATA GRONINGEN,214,16 
3630 DATA HAARLEM,160,78 
3640 DATA DEN BOSCH,182,120 
3650 DATA DEN HAAG,152,97 
3660 DATA LEEUWARDEN,195,19 
•3670 DATA ZWOLLE, 206, 68 ' 

3680 DATA UTRECHT,176,95 
3690 DATA LELYSTAD,185,66 
3700 DATA EINDHOVEN,187,137 
3710 DATA MEPPEL,204,52 
3720 DATA ENSCHEDE,224,86 
3730 DATA DEN HELDÈR,164,38 
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3740 DATA NIJMEBEN,198,112 
3750 DATA ROTTERDAM,156,106 
3760 DATA VENLO,208,140 
3770 DATA ALKMAAR,164,58 
3780 DATA TERNEUZÈN,138,146 
3790 DATA HARLINGEN,184i20 
3800 DATA TERUG BASIS,122,50 



CONTROLETELLIN6 
Regel: 10 - 5B 
Regel: 20 - 5B 
Regel: 30 - 5B 
Regel: 40 - SB 
Regel: 50 - SB 
Regel: 60 - SB 
Regel: 70 - SB 
Regel: BO - SB 
Regel: 90 - SB 
Regel: 100 - SB 
Regel: 110 - SB 
Regel: 120 - 100 
Regel: 130 - 69 
Regel: 140 - 249 
Regel: 150 • 246 
Regel: 160 - 17 
Regel: 170 - 203 
Regel: 180 - 57 
Regel; 190 - 39 
Regel: 200 ■ 107 
Regel: 210 - 116 
Regel: 220 - 56 
Regel: 230 - IBS 
Regel; 240 - 251 
Regel: 250 - 30 
Regel: 260 - 243 
Regel: 270 - 236 
Regel: 2B0 - 1 

Regel; 290 - 147 
Regel: 300 - 31 
Regel: 310 - 106 
Regel: 320 - 115 
Regel: 330 - 146 
Regel: 340 - 115 
Regel; 350 - 144 
Regel: 360 - 234 
Regel: 370 - 237 
Regel: 3B0 - 211 
Regel: 390 - 25 
Regel: 400 - 151 
Regel: 410 - 53 
Regel: 420 - 246 
Regel: 430 - 209 
Regel: 440 - 235 
Regel: 450 - 73 
Regel: 460 - 179 
Regel: 470 - 192 
Regel: 480 - 179 
Regel: 490 - 1B2 
Regel: 500 - ISl 
Regel: 510 - 1B3 
Regel; 520 - 243 
Regel; 530 - 221 
Regel: 540 - 57 
Regel: 550 - 126 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


560 - 

193 

570 - 

122 

580 - 

107 

590 - 

58 

600 - 

58 

610 - 

58 

620 - 

219 

630 - 

67 

640 - 

195 

650 - 

171 

660 - 

102 

670 - 

75 

680 - 

171 

690 - 

72 

700 - 

68 

710 - 

159 

720 - 

11 

730 - 

122 

740 - 

130 

750 - 

20 

760 - 

25 

770 - 

226 

780 - 

151 

790 - 

141 

800 - 

97 

810 - 

217 

820 - 

58 

830 - 

58 

840 - 

58 

850 - 

195 

860 - 

241 

870 - 

251 

880 - 

30 

890 - 

243 

900 - 

236 

910 - 

1 

920 - 

124 

930 - 

174 

940 - 

120 

950 - 

136 

960 - 

143 

970 - 

91 

980 - 

143 

990 - 

23 


1000 - 146 
1010 - 175 
1020 - 94 
1030 - 1B5 
1040 - 217 
1050 - 190 
1060 - 61 
1070 - 17! 
1060 - IBO 
1090 - 150 
1100 ' 181 
1110 - 105 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 
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Regel 
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Regel 
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Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


1120 - 

173 

1130 - 

99 

1140 - 

38 

1150 - 

27 

1160 - 

34 

1170 - 

131 

1180 - 

63 

1190 - 

200 

1200 - 

58 

1210 - 

129 

1220 - 

139 

1230 - 

149 

1240 - 

153 

1250 - 

159 

1260 - 

82 

1270 - 

172 

1280 - 

154 

1290 - 

231 

1300 - 

73 

1310 - 

150 

1320 - 

106 

1330 - 

58 

1340 - 

54 

1350 - 

24 

1360 - 

27 

1370 - 

50 

1380 - 

52 

1390 - 

235 

1400 - 

4 

1410 - 

237 

1420 - 

185 

1430 - 

IBS 

1440 - 

76 

1450 - 

23 

1460 - 

176 

1470 - 

186 

1480 - 

41 

1490 - 

120 

1500 - 

198 

1510 - 

163 

1520 - 

165 

1530 - 

146 

1540 - 

144 

1550 - 

166 

1560 - 

153 

1570 - 

186 

1580 - 

183 

1590 - 

196 

1600 - 

106 

1610 - 

226 

1620 - 

184 

1630 - 

58 

1640 - 

58 

1650 - 

58 

1660 - 

237 

1670 - 

151 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 
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Regel 

Regel 

Regel 

Regel 
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1680 

- 

21 

1690 

- 

178 

1700 

- 

163 

1710 

- 

212 

1720 

- 

169 

1730 

- 

158 

1740 

- 

160 

1750 

- 

162 

1760 

- 

111 

1770 

- 

1 

1780 

- 

10 

1790 

- 

15 

1800 

- 

15 

1810 

- 

14 

1820 

- 

28 

1830 

- 

15 

1840 

- 

0 

1850 

- 

18 

1860 

- 

18 

1870 

- 

33 

1880 

- 

21 

1890 

- 

107 

1900 

- 

129 

1910 

- 

15 

1920 

- 

177 

1930 

- 

107 

1940 

- 

209 

1950 

- 

220 

1960 

- 

80 

1970 

- 

84 

1980 

- 

63 

1990 

- 

165 

2000 

- 

157 

2010 

- 

123 

2020 

- 

146 

2030 

- 

1 

2040 

- 

151 

2050 

- 

185 

2060 

- 

21 

2070 

- 

177 

2080 

- 

58 

2090 

- 

58 

2100 

- 

58 

2110 

- 

124 

2120 

- 

156 

2130 

- 

76 

2140 

- 

130 

2150 

- 

24 

2160 

- 

27 

2170 

- 

50 

2180 

- 

52 

2190 

- 

235 

2200 

- 

59 

2210 

- 

120 

2220 

- 

142 

2230 

- 

58 

2240 

- 

58 

2250 

- 

58 

2260 

- 

132 

2270 

- 

184 

2280 

- 

28 

2290 

- 

88 

2300 

- 

122 

2310 

- 

8 

2320 

- 

187 

2330 

- 

88 

2340 

- 

156 

2350 

- 

33 

2360 

- 

206 

2370 

- 

110 

2380 

- 

236 

2390 

- 

178 

2400 

- 

142 

2410 

- 

217 

2420 

- 

142 

2430 

- 

58 

2440 

- 

58 

2450 

- 

58 

2460 

- 

191 

2470 

- 

174 

2480 

- 

112 

2490 

- 

57 

2500 

- 

18 

2510 

- 

203 

2520 

- 

4 

2530 

- 

112 

2540 

- 

236 

2550 

- 

21 

2560 

- 

191 

2570 

- 

122 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


25B0 - 58 
2590 - 58 
2600 - 58 
2610 - 247 
2620 - 116 
2630 - 236 
2640 - 20 
2650 - 116 
2660 - 32 
2670 - 112 
2680 - 236 
2690 - 142 
2700 - 191 
2710 - 12 
2720 - 102 
2730 - 5B 
2740 - 58 
2750 - 58 
2760 - 35 
2770 - 253 
2780 - 88 
2790 - 213 
2800 - 6B 
2810 - 19 
2820 - 149 
2B30 - 229 
2840 - 155 
2850 - 227 
2860 - 236 
2870 - 171 
2880 - 208 
2890 - 97 
2900 - 70 
2910 - 103 
2920 - 241 
2930 - 140 
2940 - 112 
2950 - 12 
2960 - 193 
2970 - 153 
2980 - 20 
2990 - 162 
3000 - 16 
3010 - 212 
3020 - 104 
3030 - 254 
3040 - 109 
3050 - 57 
3060 - 244 
3070 - 14 
3080 - 154 
3090 - 107 
3100 - 174 
3110 - 37 
3120 - 58 
3130 - 58 
3140 - 58 
3150 - 197 
3160 - 226 
3170 - 92 
3180 - 5 
3190 - 123 
3200 - 106 
3210 - 84 
3220 - 81 
3230 - 87 
3240 - 72 
3250 - 65 
3260 - 66 
3270 - 80 
3280 - 61 
3290 - 73 
3300 - 142 
3310 - 58 
3320 - 58 
3330 - 58 
3340 - 119 
3350 - 76 
3360 - 156 
3370 - 22 
3380 - 135 
3390 - 235 
3400 - 59 
3410 - 235 
3420 - 119 
3430 - 22 
3440 - 156 
3450 - 76 
3460 - 135 
3470 - 173 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Tot, 


aali 


3480 - 59 
3490 - 173 
3500 - 250 
3510 - 152 
3520 - 33 
3530 - 113 
3540 - 58 
3550 - 58 
3560 - 58 
3570 - 168 
3580 - 114 
3590 - 204 
3600 - 41 
3610 - 9 

3620 - 161 
3630 - 252 
3640 - 144 
3650 - 12 
3660 - 241 
3670 - 223 
3680 - 39 
3690 - 104 
3700 - 215 
3710 - 188 
3720 - 65 
3730 - 173 
3740 - 127 
3750 - 225 
3760 - 175 
3770 - 253 
3780 - 243 
3790 - 147 
3800 - 15 
45421 
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OP VELER VERZOEK.. 

NOGMAALS OVERIJSSEL PER HELICOPTER 
EN OOK FLEVOLAND. 

van de MSX-Gids 
uitverkocht zijn, en omdat er een enorme 
belangstelling is voor dit programma 

hebberV® 9verijssel. Inmiddels 

nebben we een provincie erbij, zodat 

geplaatst is zonder de 
polder en Flevoland als aparte listing. 

Beeldscherm: WIDTH 36 


i CDMPÜTiNe'ic’MSX GIDS 

? * ■’'VERBETERD DOOR A.VUIJK 

4 GOSUB 10000 

6 GOTO 3000 
8 ’ 

9 'HOOFDLOS 

0,0: SOUND 1,4: SOUND 6,24 
20 SOUND 7,&B11110110:SOUND 8716 
30 SOUND 12,3;SOUND 11,50:SOUND 13,1 

40 CO=STICK<BB) 

50 IF CO=0 THEN 150 

30,?40*"° 70,80,90,100,110,120,1 

70\a=YA-3:GDTO 150 

80 XA=XA+3:YA=YA-3:G0T0 150 

90 XA=XA+3:G0T0 150 

100 XA=XA+3:YA=YA+3:GOTO 150 

110 YA==YA+3:G0T0 150 

120 XA=XA-3:YA=YA+3:GOTO 150 

lo.0 XA=XA-3:G0T0 150 

YA=YA-3:G0T0 150 

!^fJ>=3000 THEN LINE(17,172)- 

5000 

160 IF TIME>2500 THEN AA=9 

170 TI=TIME*.08533 

180 LINE<TI,189)-(TI,191) AA 

200 PUT SPRÏTE 1,(XA-4TyA-4) 15 1 

220 PUT SPRITE 1,<XA-4,YA-4) is'i 

240 PUT SPRITE 1i<XA-JiYA-4)!is'3 

<XA-Xi)<ll AND ABS (YA-Yl 
RCLE <X1, Y1 ) , 2, 7: PAINT <X 
YiTJV <X1,Y1) ,2, 4: PAINT (XI, 

280’IF ABS (XA-X1)<3 AND ABS (YA-Yl) 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 ' 

999 ' PLAATS BEVONDEN 

1000 CUR=TIME 

1010 LINE <17,172)-(255,182).7 BF 

iffl-r! 7:C0L0R‘ , ,G:NEXT 

1030 SC=SC+250 

1040 LINE(150,21)-(248,29),14.BF 
1050 PSET(152,22) , 14 

#####S”tsC -SCORE: "jUSING" 

J®70 AP=AP+1:IF AP<8 THEN 3000 

1 770 ^ 

® PLAATSEN GEVONDEN 
2000 SOUND 7,&B11111000 

1D2L4CL8DEL4FGL2F. ", 

T170V1205L2C. L404BAGG ", " R '* 

2020 FOR F=1 TO 100:FOR G=1 TO 7 
2030 COLOR,,G:NEXT:NEXT 
2040 BO=INT((3000-CUR)/50) 


2045 SOUND 13,8:SOUND 12.2*SOUND 1 A 
'SOUND 7,JBI1!10110,SoiSè srit ‘’’ 

2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE(150,21)-(248.29) 14 RF 
20B0 PSET(1S2:22),li7c6LOR 1 ’ 

PRINT#1,"SCORE:"5 USING "###### « 

2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0,189)-(255,191).7 rf 
2140 NIV=NIV+l!lF NIV>7 THEN 5000 
2150 GOSUB 63040 

2998 ' 

2999 ' PLAATS KIEZEN 

3000 IFNIV=0THENRESTORE 4000 
3002 IFNIV=1THENRESTORE4002 

3004 IFNIV=2THENRESTORE4010 

3005 IFNIV=3THENRESTORE4020 

3006 IFNIV=4THENRESTORE4022 

3007 IFNIV=5THENRESTORE4030 

3008 IFNIV=6THENRESTORE4040 

3009 IFNIV=7THENRESTORE4050 
3020 PNR=INT(RND(-TIME)*8) 

3040 U$=STR$(PNR) 

3060 FOR F=0 TO PNR 
3080 READ A$,X1,Y1 
3100 NEXT F 

INSTR(B$,U$)<>0THEN3000 
3120 B$=B$+U$ 

3140 Xl=Xl+20 

3180 PSET(17,172),7:C0L0R 1 
3190 PRINT#1,"VLIEG NAAR:"|A$ 

3200 TIME=CUR 
3220 GOTO 10 

3998 ' 

3999 ' DATAREGELS MET PLAATSEN 

of Sf ,73,83, 0LDEN2 AAL, 186 

EMMELOORD,25,40,HÈNGÈLO,171,130,DEDE 
MSVAART,125,62,DEVENTER 82,142 ’ 

4001 ' 

4002 DATA KAMPEN,48,72,ENSCHEDE,180, 
itè?- R'^'^LTE ,93,110, DALFSEN, 93, 84 i HAAK 

157,DENEKAMP, 196, 109, MAR 
KELO,126,142,STAPHORST,88,51 

f URK , 8, 50, GLANERBRUG ,192,14 

6, STEENWIJKERWOLD, 70, 21, RUSSEN, 131 
131,NIEUWLEUSEN,97,67,GÖ0R,151,142 S 
LAGHAREN,136,56,VRÖOMSHOOP,138,95 “ 

4^0 data DlEPENVEEN,81,134, DELDEN, 1 

ÊtATHMEN, 96, 14 
I NO, 89, 101, LOSSER ,198,136, ÖOTMAR 
SUM,182,102,GENEMUIDEN ,66,60 

76,120, BALKBRUG, 115,6 
15,BERGENTHEIM, 143,78 
,SIBCULO, 146, 91,ENTER, 137, Us’oUDLEU 
SEN,103,72,HASSELT,71,66 ' 

4030 DATA DE KRIM,143,52,RUTTEN,17 2 
3,H0LTEN, 115, 134,B0EKÊL0, 169 Isli'+UB 
BERGEN,167,103,WIJHE,80,111,OMMEN,11 
9,71,SCHALKHAAR,86,138 

4031 ’ ’ 

4040 DATA MARKNESSE,44,40,LEMELERVEL 

50, HEETEN:9I, ïll 

’PP 195, 122,B0RNE, 164, 132,NAGE 

LE,22,57,IJSSELMUIDEN,5i,67 

4041 ' 

4050 DATA KRAGGENBURG,48,50,DIEPENHE 
IM,135,150,WESTENHOLTE,67,83,BUURSE, 
i^^’.i^^!‘*^''^RR*^ÏNKEL , 203, 142, ITTERSUMi 
7u,87,DEN HAM,126,95,GEESTÈREN,161,1 

4998 ' 



4999 ’ EINDE SPEL 

200?,™>nÊJt™ 

5005 IF NIV>7 GOTO 5020 

O010 LINE <86, 70)-(160,80), 14 BF 

5015 PSET (88, 72),15:PRINT#!,"TIJD OM 

ftlllfö*^*^^ 15®! SOUND 9,0; SOUND 7,&B1 

5025 FOR B=1 TO 7:S0UND 8.15-G*FnR F 
~NEXT^*^ 255: SOUND 0,F;CDLÖR ,,G;NEXT 

5030 SOUND 8,0 

LINE (86,70)-(160,80),4.BF 
0040 LINE(0,189)-(255,191),7!bF 
5045 IF SOHS THEN HS=SC 
5050 SC=0;NIV=0 
5100 GOSUB 63040 
5110 XA=125:YA=85 
5120 GOTO 6 

5998 =• 

5999 =■ INTRODUCTIE-TUNE 

6000 SOUND 7, 11111000 

6005 FOR F=1 TO 2 

6010 PLAY "T170V13","T170V12","T170V 

6040 D$= "04L4EGAGB.L8ABG05L4C04L2BB 
05L4C046AGBAAGL2EE" ‘^L2BB 

lIcC " AL2GGL4CCFCGAFG 

6100 PLAY C$,D$,E$ 

"05L4DC04B05CDEL2DL4DC04B05 
CDEL2DL4CEFEDCC04B05L2CC" 

7^ " 04L4B05C04G. L8AL4B05C04L2B 
AGL^EE " AGBA 

6200 PLAY C$,D$,ES 
6300 NEXT F 
6500 RETURN 

9998 •’ 

9999 ’ TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4:CLS 
10060 OPEN"GRP;" FOR OUTPUT AS#1 
10080 RESTORE 10450 

10090 SOUND1,9:SOUND13,8;SOUND12.3.8 

OUND7,?<B11110110.SOUND8, 16 

1^100 FOR F=62.5 TO 18715 STEP 25 
10120 LINE (125,5)-(F,25),7 
10140 CIRCLE STÈP(0,9),9,7 
10160 READ A$ » 5 

10180 PSET<F-2,30),4 
10190 COLOR 7;PRINt#l,A$ 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE(125,45)-(F,70),9 
10260 CIRCLE StEP(0,9),9,9 
10280 READ A^ » f 

10300 PSET(F-2,75),4 
10310 COLOR 9;PRINt#l,A$ 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP -^5 
10360 LINE <125,92)-(F,115),11 
10380 CIRCLE STÈP(0,9) 9,ïl’ 

10400 READ A$ .5,1 

10420 PSET(F-2,120),4 
10430 COLOR ll:PRINt#l,A$ 

10440 NEXT F 

Ï!-A,L,C,0,M,P,U 
104oo DATA T, I,N,e, 1 , 9 ,B ,4 
10460 PSET(66,148),4' 

10470 COLOR 14:PRINT#1,presenteer 


10480 PSET (25,165) ,4 

HEL I CDPtL " ‘ ^ ^ ^ ^ 

10490 PSET(93,178),4 

C:OLOR 14;PRINT#1, " (C) 1985“ 
•NEXT f^=^*^‘®TO0STEP-l: SOUNDS, F/20 

I jPoPP 1500; NEXT 

10999 • INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 

11040 COLOR 1,5,5!CLS 

KTIEB'?^°J/Nf“’^®*'^^^'^^"‘*'^'- INSTRU 

11043 I$=INKEY$:IFI*=""THEN11043 
P } 2-» 1.^ T * " '■ ORI ■■ n " THEN63000ELSEI 

1060ELSE11043 

ÓÓRÊooiVpirDlR"" EN DE N 

ICDPTER** ntL. 

SPELENDERWI 

JS LEREN VAN PLAATS- NAMEN IN D 

E PROVINCIE OVERIJSSEL." 

11100 LOpTE 2,8:PRINT "Vlieg met je 

acht gevraa 

gde plaatsen voordat de tijd om 

IS. Houdt de tijdbalk dus goed 

1 n het oog ! ** ^ 

ni20 LOCATE 2,13!PRINT"Nadat de ach 


tste plaats bereikt 
op een hoger niveau 
11140 LOCATE 

I ( I 


is, kom je 


12,17;PRINT"VEEL 


SUCCES 


U160 LOCATE 4,19;PRINT"Druk na het 
tekenen van de kaart; 

alk voor toetsen -^vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

tiiii 7,7; CLS 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108.70 0 24 
22.23.231,231,24, 24, ^47^, 70; 

3 3 7 D j| 0 

63005 FOR F=1 TO 3;FOR G=1 TO 8 

63006 READ X 

63007 X*=X$+CHR$(X) 

63008 NEXT G 

63009 SPRITE$(F)=X* 

63010 X$="" 

63011 NEXT F 

63017 RESTORE 63026 

63018 COLOR 4 

63019 X1=25;Y1=12 

63020 READ X2,Y2 

63021 LINE(XI+20,Y1) — (X 2+20,Y2) 

63022 SWAP XI,X2;SWAP Y1,Y2‘ 

63023 DN ERROR GOTO 63025 

63024 GOTO 63020 

63025 PAINT(46,15),4 

ê5'^’26 data 25, 12,25, 14, 15, 15,5,28,5, 
^ 249,u5,12,62,22,62,23,62^ 31,62,31,6 
8, ^^5,69, 41,73, 42, 82, 44,82, 55’ 92^ 59; 9 
1,61,93,63,86,65,85 > ■ j 

63027 DATA 75, 92,75, 98, 78, 99, 76,.108, 

11®»71,125, 7^., 126,70, 127,74, 128,77 
,1^8,79,138,78,144,80,146,82,144,88, 

145, 103, 144, 106 
’ 1 Al ’ 1 ^ 1 » 126, 155, 133, 154, 139,155 

’ JA^' *^7.4 142, 158, 144 ; 156, 145 

■' 1 1 Ao’ 17^’ 150J 165 

,I08,169,175,171,180,168 
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63029 DATA 181?160,184,155,188,154 1 
9^5144,199,143,205,145,210,143,200^1 

’188,96,175,95,175 

, v,ii, 16uj, 9s>, 155,90 

63030 DATA’155,82,148,73,157,75,159, 

J 1<^^J 90, 157, 65, 157,57, 155, 5 

^ 1 1 5 130,53,130,60,125,58 

105^48^■’ 1^®5 54, 105,51, 

103,47, 100,49,97,49,90,45 
’ f ^5 80, 45, 75, 31,80, 30, 89: 20: 82: 17 

•'I 0 ’ ff’- t' 15,64, 14 

,60,16,57,11,53,12,51,15 

63032 DATA 45,19,43,18,40.20 35 1R X 

0,20,30, 17,25, 12 ’ 18, o 

63040 AP=0:CUR=0:XA=125;YA=85:AA=1s B 
63060 COLOR ,,7 

63062 LINE <150,5)-<248,13),14,BF 

8SET<152,6) :COLOR 1 : PRINT#1 , "N 
IVEAUs'•!USINB"#####*';NIV 
63065 LINE<150,21>-<248.29) 14 BF 
63067 PSET<152,22),14 

»###### n^SC 1' 1 1, •■ SCORE: ; UB ING 

63070 LINE<15,119)-<73,139),14.BF‘PS 
ET <17, 120) , 14i PRINT#1, ■■HOOGSTE" 

6-’072 PSET < 17, 130) , 14; COLOR 6; PRINT# 
1, USI NG ■■###### ■■•HS: COLOR 1 

88ET<17, 172) ,7:PRINT#1, ■■DRUK S 
PATIEBALK/VUURKNOP. ■■ 

63080 IF STRIG<0)=-1 THEN BB=0 ELSE 
IF STRIG<1)=-1 THEN BB=1 ELSE 63080 
63090 LINE <17,172)-<255,182),7:BF 
63100 RETURN ’ ’ ’ 

63200 ’MET DANK AAN SYBRAND RUITER 


CDNTR0LETELL1N6 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Regel 

Rege 

Regel 

Rege! 

Rege] 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


1 - 58 
2-43 
4 - 242 
6 - 122 
8-58 
9 - 58 
10 - 43 
20 - 152 
30 - 101 
40 - 247 
50 - 251 
60 - 252 
70 - 176 
80 - 16 
90 - 173 
100 - 15 
110 - 175 
120 - 16 
130 - 174 
140 - 17 
150 - 25 
160 - 242 
170 - 94 
180 - 29 
200 - 62 
220 - 63 
240 - 64 
260 - 209 
280 - 191 
300 - 223 

998 - 58 

999 - 58 
1000 - 164 
1010 - 97 
1020 - 141 
1030 - 21 
1040 - 148 
1050 - 84 
1060 - 27 
1070 - 126 

1998 - 58 

1999 - 58 

2000 - 21 
2010 - 119 


Regel: 

Regel; 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel; 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

frgel; 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel; 

Regel: 

Regel: 

Regel: 

Regel: 

Regel; 

Regel: 

Regel: 

Regel; 

Regel: 

Regel; 

Regel; 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel; 

Regel; 

Regel: 

Regel: 

Regel: 


2020 - 202 
2030 - 214 
2040 - 150 
2045 - 0 

2050 - 147 
2060 - 127 
2070 - 148 
2080 - 125 
2090 - 18 
2110 - 233 
2120 - 58 
2130 - 108 
2140 - 103 
215C - 241 

2998 - 58 

2999 - 58 

3000 - 187 
3002 - 158 

3004 - 167 

3005 - 178 

3006 - 181 

3007 - 190 

3008 - 201 

3009 - 212 
3020 - 85 
3040 - 59 
3060 - 241 
3080 - 119 
3100 - 233 
3110 - 134 
3120 - 37 
3140 - 21 
3180 - 135 
3190 - 201 
3200 - 164 
3220 - 193 

3998 - 58 

3999 - 58 

4000 - 183 

4001 - 58 

4002 - 214 

4010 - 48 

4011 - 58 

4020 - 14 

4021 - 58 


Regel; 4022 - 42 
Regel; 4030 - 239 
Regel; 4031 - 58 
Regel; 4040 - 230 
Regel; 4041 - 58 
Regel; 4050 - 235 
^ ■ 4998 


Regel. _ 

Regel; 4999 
Regel: 5000 
Regel; 5005 
Regel 


58 

58 

230 

36 

128 


5010 

Regel; 5015 - 224 
Regel; 5020 - 249 
Regel; 5025 - 151 
Regel; 5030 - 
Regel: 5035 - 
Regel; 5040 - 
Regel; 5045 - 
Regel: 5050 - 
Regel; 5100 - 
Regel: 5110 - 
Regel: 5120 - 
Regel; 5998 - 
Regel: 5999 - 
Regel; 6000 - 
Regel: 6005 - 
Regel: 6010 - 
Regel; 6020 - 
Regel; 6040 - _ 

Regel: 6060 - 148 
Regel: 6100 - 113 
Regel; 6120 - 164 
Regel; 6140 - 14 
Regel; 6160 - 171 
Regel; 6200 - 113 
Regel; 6300 - 233 
Regel; 6500 - 142 
Regel: 9998 - 58 
Regel: 9999 - 58 
Regel:10000 - 114 
Regel: 10040 - 86 
Regel;10060 - 17 
Regel:10080 - 180 
Regel;10090 - 102 
Regel:10100 - 50 


58 
120 
76 

4 

189 

241 

59 
189 
58 
58 
21 
21 

243 

148 

8 


Regel; 10120 - 15 
Regel; 10140 - 234 
Regel: 10160 - 12 
Regel; 10180 - 248 
Regel; 10190 - 134 
Regel: 10200 - 233 
Regel; 10220 - 76 
Regel: 10240 - 68 
Regel; 10260 - 236 
Regel: 10280 - 12 
Regel; 10300 - 37 
Regel: 10310 - 136 
Regel: 10320 - 233 
Regel: 10340 - 85 
Regel; 10360 - 192 
Regel; 10380 - 236 
Regel; 10400 - 12 
Regel; 10420 - 82 
Regel; 10430 - 136 
Regel; 10440 - 233 
Regel: 10450 - 150 
Regel; 10455 - 224 
Regel: 10460 - 116 
Regel; 10470 - 181 
Regel; 10480 - 92 
Regel; 10485 - 123 
Regel: 10490 - 173 
Regel; 10495 - 245 
Regel; 10498 - 71 
Regel: 10500 - 188 


Regel;10999 - 58 
Regel:11000 - 246 
Regel:11020 - 244 
Regel:11040 - 76 
Regel;11042 - 216 
Regel;11043 - 227 
Regel;11044 - 67 
Regel:11060 - 211 
Regel:11080 - 23 

illilllH: 

Regel;11160 - 232 
Regel:11180 - 66 
Regel;63000 - 194 
Regel;63002 - 175 
Regel;63003 - 204 
Regel;63004 - 206 
Regel:63005 - 108 
Regel;63006 - 255 
Regel;63007 - 22 
Regel:63008 - 234 
Regel:63009 - 237 
Regel;63010 - 175 
Regel;63011 - 233 
Regel:63017 - 226 


Regel;63018 - 242 
Regel;63019 - 110 
Regel;63020 - 232 
Regel;63021 - 235 
Regel:63022 - 66 
Regel:63023 - 89 
Regel;63024 - 217 
Regel;63025 - 216 
Regel;63026 - 17 
Regel;63027 - 62 
Regel:63028 - 12 
Regel;63029 - 213 
Regel;63030 - 128 
Regel;63031 - 255 
Regel;63032 - 116 
Regel;63040 - 186 
Regel;63060 - 77 
Regel;63062 - 118 
Regel;63063 - 210 
Regel;63065 - 148 
Regel:63067 - 84 
Regel:63069 - 27 
Regel;63070 - 32 
Regel;63072 - 140 
Regel;63075 - 235 
Regel;63080 - 36 
Regel;63090 - 65 
Regel;63100 - 142 
Regel;63200 - 58 
Totaal; 28354 


Beeldscherm: WIDTH 36 


1 

2 

4 

6 

8 

9 

10 
20 
30 
2 

40 

50 

60 


=■ ALBERT 
KEYOFF 
GOSUB 10000 
GOTO 3000 


VUIJK COEVORDEN 1986 


•’ HOOFDLUS 

SOUND 0,0;SOUND 1,4;SOUND 6,24 
SOUND 7, 8<B11110110: SOUND 8,16 
SOUND 12,3:SOUND 11,50:SOUND 13. 


CO=STICK<BB) 

IF CO=0 THEN 150 

30 140^° 70,80,90,100,110,120,1 

70'YA=YA-3!G0T0 150 
80 XA==XA+3; YA=YA-3: GOTO 150 
90 XA=XA+3;G0T0 150 
100 XA=XA+3:YA=YA+3:GOTO 150 
110 YA=YA+3;G0T0 150 
120 XA=XA-3;YA=YA+3:G0T0 
130 XA=XA-3:G0T0 150 
140 XA=XA-3;YA=YA-3;GOTO 150 
150 IF TIME>=3000 THEN LINE<17,172)- 
<255,182),7,BF:GOTO 5000 
160 IF TIME>2500 THEN AA=9 
TI=TIME#.08533 


150 


170 

180 

200 

220 

240 

260 

Xll 


LINE<TI,189)-<TI,191),AA 


PUT SPRITE 1,<XA-4,YA-4), 15, 1 
PUT SPRITE 1,<XA-4,YA-4),15^2 
PUT SPRITE 1,<XA-4,YA-4): 15:3 
IF ABS <XA-X1)<11 AND ABS <YA-Y1 
THEN CIRCLE <X1,Y1),2,7;PAINT<X 


<X1,Yl),2;4:PAINT<X1 


AND ABS <YA~Y1) 


1,Yl),7;CIRCLE 
Yl) ,4 

280 IF ABS <XA-X1)<3 
<3 THEN GOSUB 1000 
300 GOTO 40 
998 

PLAATS GEVONDEN 
CUR=TIME 

LINE <17,172)-<255,182),7,BF 
FOR G=0 TO 7;COLOR ,,G;NEXT 
SC=SC+250 

LINE<72,22)-<120,32),14,BF 
PSET<72,24),14 ' 

COLOR 1: PR I NT# 1, US I NG •' ###### ■•; s 


999 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
C 

1070 

1998 


AP=AP+1;IF AP<8 THEN 3000 
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1999 ' 8 PLAATSEN GEVONDEN 

2000 SOUND 1111000 

2010 PLAY"T170V1102L4CL8DEL4FGL2F.", 
"T170V12O5L2C.L4O4BAGG","R" 

2020 FOR F=1 TO 100:FOR G=1 TO 7 
2030 COLOR,,G:NEXTs NEXT 
2040 BO=INT((3000-CUR)/50) 

2045 SOUND 13,8:SOUND 12,2:SOUND 1,4 
: SOUND 7,8<B11110110: SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=BC+100 

2070 LINE(72,22)-(120,32),14,BF 
2080 PSET(72,24),14;CÖLOR'1 ‘ 

2090 PRINT#1,USING "######";SC 
2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0,189)-(255,191),7,BF 
2140 NIV=NIV+1;IF NIV>3 THEN 5000 
2150 GOSUB 63040 

2998 =• 

2999 ' PLAATS KIEZEN 

3000 IFNIV=0THENRESTORE4000 
3002 IFNIV=1THENREBTORE4010 
3004 IFNIV=2THENRESTORE4020 
3006 IFNIV=3THENRESTORE4030 
3020 PNR=INT(RND(-TIME)*8) 

3040 B1$=STR$(PNR) 

3060 FOR F=0 TO PNR 
3080 READ A$,X1,Y1 
3100 NEXT F 

3120 IF INSTR(B$,B1$)<>0THEN3000 
3140 B$=B$+B1* 

3180 PSET<17,172),7;COLOR 1 
3190 PRINT#1, "VLIÈG NAAR:’*;A$ 

3200 TIME=CUR 
3220 GOTO 10 

3998 ’ 

3999 ’ DATAREGELS MET PLAATSEN 

4000 DATA LELYSTAD,132,98,ALMERE,99, 
143,DRONTEN,165,95,EMMÈLOÓRD,169,45i 
URK,150,57,NOORDOOSTPOLDER,170, 50,OÖ 
STELIJK FLEVOLAND,156,105,ZUIDELIJK 
FLEVOLAND,124,135 

4001 =■ 

4010 DATA RUTTEN,162,19,SWIFTERBANT, 

154,85,Z EEWOLDE,141,147,MARKENESSE,1 
85,45,ALMERE HAVEN,97,146,BIDDINGHÜI 
ZEN,164,115,NAGELE,166,62,ENS,180,65 

4011 ' .... 

4020 DATA ALMERE STAD,100,148,KETELH 
AVEN,172,83,TOLLEBEEKi160i53,CREIL,1 
56,30,LELYSTAD HAVEN,127,106iPAMPUSH 
OUT,93,135,LUTTELGEEST,184,35,ESPEL, 
156,41 

4021 ' 

4030 DATA KRAGGENBURG,189,58,BANT,16 
9,29,ROGGEBOTSLUIS,181,91iHORSTELWOL 
0,140,155,FLEVOHOF,172,115,OOSTVAARD 
ERSPLASSEN,110,123,NIJKERKÊRWOLD,132 
,160,SCHOKLAND,176,60 

4031 ' 

4041 ' 

4998 =■ 

4999 ’ EINDE SPEL 

5000 FOR F=1 TO 3:PUT SPRITE 1,(200, 
200),7,F:NEXT 

5005 IF NIV>3 GOTO 5020 
5010 LINE (174,150)-<240,160),15,BF 
5015 PSET(176,152),15:PRINT#!,"TIJD 
OP! " 

5020 SOUND 1,0;SOUND 9,0;SOUND 7,&B1 
1111110 

5025 FOR G=1 TO 7;SOUND 8,15-G;F0R F 
=170 TO 255;SOUND 0,F;COLÖR ,,GïNEXT 
ïNEXT 

5030 SOUND 8,0 

5035 LINE <174,150)-(240,160),7,BF 
5040 LINE(0,189)-(255,191),7,BF‘ 


5045 IF SOHS THEN HS=SC 
5050 SC=0;NIV=0 
5100 GOSUB 63040 
5110 XA=125;YA=85 
5120 GOTO 6 

5998 •’ 

5999 ’ INTRODUCTIE-TUNE 

6000 S0UND7,&B11111000 

6001 A1$="V8T108O4L4AO5DL8CDO4L2B-L4 
A05DGEFL8EDC04B-L4A05DL8CDL204B-L4AG 
E.L8FL2F. 11 

6010 A2*="V6T108D4L2FFL4EL2FL4B-GL2A 
L4GL2FFL4EFDC03B-L2A." 

6020 A3$="V6T108O3L4FB-AGCFB-GO4CO3F 
A04C03FB-AGCF02B-03C02C" 

6030 A4*="02L4FA03C" 

6040 A5^="02L2F." 

6050 PLAY Al$,A2$,A3$+A4$ 

6060 PLAY Al$,A2$iA3f+A5$ 

6070 B1*="05L2AL4GFB-AL2GL4FEAGFL8GF 
EDL2C#L4DEL8EFGAGFEDC04B-" 

6080 B2$="05R4L4CC#DFEL2DL4C04B-A05C 
#D04AGL2A.L4B-A05C#L2DR4" 

6090 B3$="03L4F02FED03DC02L2B-L4AGFE 
DC02B-A03EFGA02AL203DL4E" 

6100 PLAY B1$,B2$,B3$ 

6110 PLAY Al$,A2$,A3$+A5$ 

6500 RETURN 

9998 •’ 

9999 ’ TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15;4,4;CLS 

10060 OPEN"GRP;" ’FOR OUTPUT AS#1 
10080 RESTORE 10450 

10090 SOUND1,9;SOUND13,8;SOUND12,3;S 

OUND7,?<B11110110;SOUND8, 16 

10100 FOR F=62.5 TO 187^5 STEP 25 

10120 LINE (125,5)-(F,25),7 

10140 CIRCLE STÈP(0,9>,9,7 

10160 READ A$ 

10180 PSET(F-2,30),4 
10190 COLOR 7;PRINt#l,AS 
10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE<125,45)-(F,70),9 
10260 CIRCLE StEP(0,9),9,9 
10280 READ A$ ■ • . 

10300 PSET < F-2,75 >,4 
10310 COLOR 9;PRINt#l,A^ 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP 25 
10360 LINE (125,92)-<F,115),11 
10380 CIRCLE STÊP(0,9)l9,11 
10400 READ A$ 


10420 PSET(F-2,120),4 
10430 COLDR 11;PRINT#1,A$ 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 

10455 DATA T,I,N,G;i;9,8;6 

10460 PSET(66,148),4 

10470 COLOR 14;PRINT#1,"- presenteer 

10480 PSET(25,165),4 

10485 COLOR l:PRINt#l," FLEVOLAND PE 
R HELIKOPTER" 

10490 PSET(93,178),4 

10495 COLOR 14;PRINT#1,"(C) 1986" 

10498 FOR F=300TO0STEP-l;SOUND8,F/20 

:NEXT 


10500 FOR F=1 TO 1500;NEXT 

10999 =■ INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 
11040 COLOR 1,5,5;CLS 

11050 LOCATE 4,i0;PRINT"Wi1 je instr 
ucti es? (J/N) ** 

11052 1^=1 NKEY$: IFI ” THEN 11052 
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'■HET DOEL VAN 
SPELENDERWI 
NAMEN IN D 

'Vlieg met je 
acht gevraa 
de tijd om 
dus goed 


'Nadat de 
is, kom 


ach 

je 


I J i-» •, I olfï " " ORI $ = " n " THEN63000ELSEI 
T1 SIr.'^rvPS ^ ” J " THEN 11060ELSE11052 

^ * RRINTCHR$ (175) +■• 
^FLEVOLAND PER HELIKOPTER '’+CHR$(174 

11080 LOCATE 4,4:PRINT 
DIT SPEL IS HÈT 
JS LEREN VAN PLAATS- 
E PROVINCIE FLEVOLAND." 

11100 LOCATE 2,8:PRINT 
helikopter naar de 
gde plaatsen voordat 
is. Houd de tijdbalk 
1n het oog!" 

11120 LOCATE 2,13;PRINT 
tste plaats bereikt 
op een hoger niveau." 

11140 LOCATE 12,17;PRINT"VEEL SUCCES 

iil60 LOCATE 4,19:PRINT"Druk na het 
tekenen van de kaart: 

I . “ spatieb 

alk voor toetsen - vuurkn 

op voor joystick 1" 

11180 GOSUB 6000 

63000 SCREEN2,0,0;C0L0R7,7,7;CLS 

63002 X$="" » 5 i-i-o 

63003 RESTORE 63004 

98, 54, 4,32, 108,70,0,24, 

^54?98 0 ’ ’ ® ^ ^ 

63005 FOR F=1 TO 3;F0R G=1 TO 8 
READ X 

X$=X^+CHR$(X) 

NEXT G 

SPRITE$(F)=X$ 

X$=" •• 

NEXT F 

RESTORE 63026 
COLOR 4 
Xl=164;Yl=7 
READ X2,Y2 

IF X 2=0ANDY2=0THEN63025 
LINE(X1,Y1)-(X2,Y2) 

SWAP XI,X2:SWAP Y1,Y2 
GOTO 63020 

PAINT(140,120),4;PAINT(160,50) 


63006 

63007 

63008 

63009 

63010 

63011 

63017 

63018 

63019 

63020 

63021 

63022 

63023 

63024 

63025 
,4 

63026 


ior. 174,13,176, 18 

, 180, ^2f 184, 2,>, 188, 28, 191,29, 197,40 
196,54, k. 2 , 58, ^ 01 ,1,2, leY,70, i 

63027 DATA 156,74,157,75,171,80,178. 
164^89 184 98, 178, i 18.: 171; 12è; i66 

’ 1 ^® 
,145,140,144,144 

63028 DAtA 144,155,140,164,125,170,1 

li* 152,96, 149,89, 151,87, 145, 

84,1^8,89,134,89,131,84,135,89, 131,1 
02,123,120,105 ’ ’ 

124,96, 125,96, 125 
; » 1®-»? 124, 105, 128, 100, 128, 95, 

l^Si'76, 153,74, 156,70, 1 
148,30, 157,11,163, Ï0, 16 

45 / 50,0 

63040'AP=0;CUR=0;XA=125;YA=85:AA=1;B 

63060 COLOR , , 7 

63061 LINE(22,6)-(96,16),14,BF:PSET( 
24,8j,14;PRINT#1,"FLEVOLAND" 

63062 LINE(22,38)-(80,48),14,BF 

63063 PSET(24,40):COLOR 1:PRINT#1,"N 

IV:";USING"###";NIV ’ 

63065 LINE(22,22)-(120,32),14,BF 
63067 PSET(24,24),14 ' 

H2i«L£P'-2^' 1 = PR 1 NT# 1 , " SCORE; " ; USING 

TTTtTTTTTrtr || SC 


63070 LINE (22, 54) - (80, 72) . 14 BF*Pc;PT 
(24,56), 14;PRiNT#l, "HOOGSTE" 

, US ING "####### "^hS-COLOR^I 

. "DRUK S 

*^PW*^7 T ^'^N RICH. ALTENBURG 

EN ZIJN PROGRAMMA TOPOOV 

CONTROLETELLINB 


Regel 
Reg 
Reg 
Reg 
Reg 
Reg 
Rege 
Rege 
Reg 
Reg 
Reg 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Rege 
Regel 
Rege 
Rege 
Regei 
Regel 
Rege] 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 


; 1 

- 58 

; 2 

- 183 

: 4 

- 242 

; 6 

- 122 

: 8 

- 58 

9 ■ 

■ 58 

10 ■ 

- 43 

20 ■ 

- 152 

30 ■ 

- 101 

40 - 

• 247 

50 • 

• 251 

60 - 

• 252 

70 - 

• 176 

80 - 

■ 16 

90 - 

• 173 

100 - 

15 

110 - 

175 

120 - 

16 

130 - 

174 

140 - 

17 

150 - 

25 

160 - 

242 

170 - 

94 

180 - 

29 

200 - 

62 

220 - 

63 

240 - 

64 

260 - 

209 

280 - 

191 

300 - 

223 

998 - 

58 

999 - 

58 

1000 - 

164 

1010 - 

97 

1020 - 

141 

1030 - 

21 

1040 - 

202 

1050 - 

6 

1060 - 

230 

1070 - 

126 

1998 - 

58 

1999 - 

58 

2000 - 

21 

2010 - 

119 


2020 - 202 
2030 - 214 


2040 
2045 - 


150 

0 


2050 - 147 
2060 - 127 
2070 - 202 
2080 - 47 
2090 - 221 

- 233 

- 58 

- 108 

- 99 

- 241 

- 58 

- 58 
000 - 155 
002 - 166 


004 

006 


177 
188 
- 85 


040 - 89 


3060 - 241 
Regel: 3080 - 119 


Regel; 3100 
Regel: 3120 


233 

164 


Regel; 3140 - 67 
Regel; 3180 - 135 
Regel; 3190 - 201 
Regel; 3200 - 164 


Regel; 3220 - 193 
Regel; 3998 - 58 
Regel; 3999 - 58 
Regel; 4000 - 71 
Regel; 4001 - 58 
Regel; 4010 - 55 
Regel; 4011 - 58 
Regel; 4020 - 201 
Regel; 4021 - 58 
Regel: 4030 - 130 
Regel; 4031 - 58 
Regel; 4041 - 58 
Regel; 4998 - 58 
Regel; 4999 - 58 
Regel; 5000 - 230 
Regel; 5005 - 32 
Regel; 5010 - 201 
Regel; 5015 - 106 
Regel; 5020 - 249 
Regel; 5025 - 151 
Regel; 5030 - 58 
Regel; 5035 - 195 
Regel; 5040 - 76 
Regel; 5045 - 4 

Regel; 5050 - 189 
Regel; 5100 - 241 
Regel; 5110 - 59 
Regel; 5120 - 189 
Regel; 5998 - 58 
Regel; 5999 - 58 
Regel; 6000 - 245 
Regel: 6001 - 163 
Regel; 6010 - 143 
Regel; 6020 - 24 
Regel; 6030 - 25 
Regel; 6040 - 64 
Regel; 6050 - 136 
Regel; 6060 - 137 
Regel; 6070 - 209 
Regel; 6080 - 13 
Regel; 6090 - 134 
Regel: 6100 - 1 

Regel; 6110 - 137 
Regel; 6500 - 142 
Regel; 9998 - 58 
Regel; 9999 - 58 
Regel;10000 - 114 
Regel:10040 - 86 
Regel;10060 - 17 
Regel;10080 - 180 
Regel;10090 - 102 
Regel:10100 - 50 
Regel;10120 - 15 
Regel;10140 - 234 
Regel;10160 - 12 
Regel:10180 - 248 
Regel;10190 - 134 
Regel;10200 - 233 
Regel;10220 - 76 
Regel:10240 - 68 
Regel;10260 - 236 
Regel:10280 - 12 
Regel;10300 - 37 
Regel:10310 - 136 
Regel;10320 - 233 
Regel:10340 - 85 
Regel;10360 - 192 
Regel:10380 - 236 
Regel:10400 - 12 
Regel;10420 - 82 
Regel:10430 - 136 
Regel;10440 - 233 
Regel;10450 - 154 
Regel:10455 - 226 
Regel;10460 - 116 


Regel:10470 - 181 
Regel;10480 - 92 
Regel:10485 - 56 
Regel;10490 - 173 
Regel:10495 - 246 
Regel:10498 - 71 
Regel;10500 • 188 
Regel;10999 - 58 
Regel:11000 - 246 
Regel;11020 - 244 
Regel:11040 - 76 
Regel:11050 - 208 
Regel;11052 - 236 
Regel:11054 - 76 
Regel:11060 - 53 
Regel; HOBO - 172 
Regel;11100 - 171 
Regel;11120 - 106 
Regel;11140 - 227 
Regel:11160 - 232 
Regel:11180 - 66 
Regel;63000 - 194 
Regel;63002 - 175 
Regel;63003 - 204 
Regel:63004 - 206 
Regel:63005 - 108 
Regel:63006 - 255 
Regel:63007 - 22 
Regel:63008 - 234 
Regel;63009 - 237 
Regel;63010 - 175 
Regel;63011 - 233 
Regel:63017 - 226 
Regel:63018 - 242 
Regel;63019 - 246 
Regel;63020 - 232 
Regel:63021 - 165 
Regel;63022 - 195 
Regel:63023 - 66 
Regel;63024 - 217 
Regel'.63025 - 70 
Regel:63026 - 126 
Regel;63027 - 153 
Regel;63028 - 38 
Regel;63029 - 141 
Regel:63040 - 186 
Regel;63060 - 77 
Regel;63061 - 111 
Regel;63062 - 144 
Regel:63063 - 81 
Regel;63065 - 152 
Regel:63067 - 214 
Regel;63069 - 27 
Regel:63070 - 113 
Regel;63072 - 116 
Regel;63075 - 235 
Regel:63080 - 36 
Regel:63090 - 65 
Regel;63100 - 142 
Regel:63200 - 58 
Totaal: 27186 



GELUKKIG 1987 


Met onderstaand programma kregen wij van 
Victor Schaeffer een nieuwjaarsgroet 
binnen. Bij dit programma -wat alleen 
geschikt is voor de MSX-2- wordt gebruik 
gemaakt van het COPY-commando en voor veel 
lezers zal dit programma dan ook leerzaam 
kunnen zijn. Bij vrijwel alle regels staan 
commentaar. 


Beeldscherm: WIDTH 36 

20 •'* Nieuwjaarsgroet 1987 * 

30 •' * « 

40 ■■‘Ut alleen voor MBX-2 * 

50 ’ ********** He***#**#* 

60 '* VICTOR 9CHAEFFER, MIJDRECHT * 
70 ******************************* 

80 -’* (c)1987 MSX-Gids Amsterdam * 
90 ='******************************* 
100 =• 

110 COLOR 7,0,0sSCREEN7 

120 •'vierkleur!ge punt op pagina 1 t 

ekenen 

130 SETPAGE0,1;CLS:DRAW"BM8,8S3C3H4E 
2R4F2G4C4BD2BR2G4F2R4E2H4BD1BR2C5E4D 
7H4BL2BD2C6H4D7E4 '■ 

140 PAINT(8,6),3,3:PAINT(8,11),4,4:P 
AINT(10,8),5,5:PAINT(5,8),6,6 
150 'schrijven van de tekst op pagin 
a 0 

160 SETPAGE0,0:X=457 ' de gekleurde 
punt wordt 457 (o-f 267) maal gekopiee 
rd 

170 RESTDRE300:FORI = 1TOX:READA,B s COP 

Y (4,4)-dl, 13) , lTO(2.4*A-20,B*i. 1+25 
),0,TPSET!NEXTÏ 

180 ’i.p.v. TPSET kan ook TXOR gebru 
ikt worden.Regel 280 moet dan verval 
len. 

190 'kleur wisseling van de tekst 
200 FORJ=1T012;F0RI=3T06;COLOR=(I, RN 
D(-TIME)*8,RND(-TIME)*8,RND(-TIME)*8 
):NEXTI,J 

210 'knal en -flitsen 
220 SOUND7,8<B110111 

230 FORQ=0tO8:COLOR=(0,7,7,7):FORK=0 
T06 5 NEXT:COLOR=(0,0,0,0):NÊXTQ 
240 SOUNDS ,15: FOR j =0TC)31: SOUND6, J; FO 
Rh::=0TO6:NEXTK, J 

250 FORJ=31TO0STEP-1;S0UND6,J:SOUNDS 
,INT(J/2):FORK=0TO80;NEXTK,j 
260 'wissen van "gelukkig" 

270 X=267 ' een zwart blokje wordt 2 
67 maal gekopieerd 

280 REBTORE300;FORI = 1TOX:READA, B; COP 

Y (4,4)-dl, 13) ,0TO(2.4*A-20,B*i. 1+25 
),0:NEXTI 

290 GOTO170 

300 ’X en Y waarde van kopieer punt 
310 ’G 

320 DATA53,23,51,22,48,21,46,22,44,2 
3,41,24,39,26,37, 28!, 36^ 30, 35!, 32, 34,3 
4,34,36,35,39,37,41'39, 43’, 42, 43,45,4 
3,48,41,49, 39,51,36!, 52, 26,52, 28, 52, 3 
0, 52, 33,51,39, 51,42!, 51, 44 ; 51 ; 47, 51!, 5 
0,51,53, 51,55,50,58,50!, 61 i 49' 65, 48^ 6 

7, 46, 69,43,68,42,66. 

330 DATA41,64,41,61,42,58,43,56,44,5 
3,45, 50,46, 48,48,45, 49!, 43^ 5d 41 ‘ 


340 'E 

350 DATA53,40,55,39,57,38,59,36,61,3 
5, 63, 34,65, 32,67,30, 68, 28, 67,26, 65!, 2 
5,63,26,61,27,60,30,59,32,59'34,59^ 3 
7,59,40,61,43,63,44,66,44,69^43^72,4 
2 

360 'L 


370 DATA74,41,76,39,78,37,80,34,82,3 
1,83,28,84,26,86,23,87,21,87,19^88,1 
6,88,13,87,11,86,9,85,12,84,15,83,is 
,82,21,81,23,81,27,80, 30!. 80, 35, 79, 38 
,79,41,80, 43,83, 44,86, 43 !. 88', 41 ■ 

380 'U 


390 DATA89,39,91,37,91,34,92,32,93,3 
0,93,33,92,36,92,39!.93;41 ■ 95!,43!,97,4 
2,99,40,101,39,102,37,103,35,104,32, 

104.30.103.33.103.36.104.39.105.41.1 
07,42,110,42,113,41,114,40,117,37,11 

8,35,119,33,120,30 . 

400 'K ■ 

410 DATA121,28,122,25,122,22,123,20, 

123.17.123.20.123.22.123.25.123.27.1 
23,30,122,33,122,36,122,37,122,39,12 
1,42,122,39,124,37,125,35,127,32,128 
,30,130,28,132,26,133,24,134,22,127, 

33.127.36.128.38.129.40.131.39.133.3 
8,134,36,136,34 ' ' 

420 'k 

430 DATA137,33,138,31,139,29,140,27, 

141.24.142.22.142.20.143.17.142.20.1 
42,28,141,26,141,28,141,31,140,33,14 
0,36,140,38,139,40,139,42,141,39,142 
,37,143,34,145,32,147,30,148,28,150, 

26.151.24.153.22.154.20.156.19.147.3 

440 DATA148,32,148,35,148,37,148,39, 
149,41,150,42,152,40,153,39,154,37 
450 'I ■ 

460 DATA155,35,156,34,157,32,158,30, 

159.29.158.34.157.36.157.38.157.40.1 

59.40.160.39.162.37.163.36.165.34.16 
4,18 

470 'G 

480 DATA166,33,168,31,169,29,171,28, 

172.26.174.25.176.25.177.27.177.30.1 

77.33.178.36.178.39.177.40.175.41.17 
3,42,171,42,169,40,168,38,168,36,168 
,33,168,31,178,42,178,44,178,47,178, 
50,178,53,177,55,177,58,176,61 

490 DATA175,63,174,66,173,68,172,69, 

170.68.169.65.169.62.169.60.170.57.1 

72.54.173.52.175.50.178.48.179.47.18 
1,45,184,44,186,42,188,41,191,39,194 
,37,197,34,201,32,205,29,210,25 ’ 

500 '1 . 


510 DATA70,96,68,98,67,101,65,103,64 
,105,63,107,61,109,70,99,68,102,67,1 
04,66,106,64,109,66,107,66,110,65,11 
3,65,116,64,119,63,122,63,125,62,128 
,70,102,69,105,68,108,68,111,67,113, 

67.117.66.119.65.122.65.125.64.128.5 
7,129 

520 DATA59,129,61,129,63,129,65,129, 

67.129.69.129.71.129.57.132.59.132.6 
1,132,63,132,65,132,67,132,69,132,71 

,132 . 

530 '9 

540 DATA95,101,92,99,88,99,85,101,83 
,103,81,106,79,110,79,113,78,117,79, 
120,81,122,83,123,86,122,93,105,91,1 
02,88,102,86,104,83,106,82,110,81,11 
3,81,117,83,119,86,120,89,116,93,108 
,92,111,91,114,88,120,86,124,84,127 
550 DATA83, 130,82, 133,80, 136^98!, 100, 
96,105,95,108,94,111,93,114,92,117,9 
1,120,89,123,88,127,87,129,85,132,84 
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560 ’B 

570 DATA1095ll6,110,il4,113 lil 114 
108,115,105,114i103,113, 100 !112 '98 i 

101,103, 104, 102, 107 
,102,110,102,11^,101,115,99,117,98.1 
20,97, 124,96, 127, 96, 130, 97, 133, 100!, 1 

1 ®®» 125 

580 DATA109,122,108,118,104,113.104 
11?’ i«?’ 1 iT" ^ 1 ®» l®l’ 

JJi’ HH» HJ’ 112’ 108,110,110, 108, 

llo., 10O., 116, 102, 118, 100, 122,99, 125,9 
590 '7 

600 DATA121,97,123,99,125,100,128,10 
0 , lc-1,99, 133, 97, 135, 95, 121,102, 123 1 

126 104, 128, 104, i31103,’ izil llï,' 1 
’ ^^2, 104, 131,107, 130, i 1 
J29,112,128,115,127,118,126,121,12 
5, 120., 124, 126, 123, 129, 122, 132, 121 i 13 


C0NTR0LETELLIN6 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege] 

Rege] 

Regel 

Rege] 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


10 - 58 
20 - 5B 
30 - 58 
40 - 58 
50 - 58 
60 - 58 
70 - 58 
80 - 58 
90 - 58 
100 - 58 
110 - 134 
120 - 58 
130- 44 
140 - 110 
150 - 58 
160 - 29 
170 - 107 
180 - 58 
190 - 58 
200 - 28 
210 - 58 
220 - 149 
230 - 154 
240 - 52 
250 - 100 
260 - 58 
270 - 201 
280 - 40 
290 - 65 
300 - 58 
310 - 58 
320 - 75 
330 - 240 
340 - 58 
350 - 54 
360 - 58 
370 - 219 
380 - 58 
390 - 2 

400 - 58 
410 - 29 
420 - 58 
430 - 143 
440 - 139 
450 - 58 
460 - 186 
470 - 58 
480 - 245 
490 - 24 
500 - 58 
510 - 202 
520 - IB6 
530 - 58 
540 - 157 
550 - 183 
560 - 58 


, 138 

597 , 

137 

109, 

132, 

112 

127, 

123i 

126 

119 ; 

124 ; 

119 

133, 

117 ; 

135 

Regel: 

570 - 

■ 226 

Regel; 

580 - 

108 

Regel; 

590 - 

• 58 

Regel: 

600 - 

115 

Regel: 

610 - 

57 

Totaal 

: 5465 



Epilepsie; je laat 
je medemens 
toch niet vallen...? 



Campagne 1987: 
Epilepsie en 
Onderwijs 
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li®s 

NATIONAAl. 
EFI1*S?SIE FONDS7 
DEBIACHT 
VAIV HET KLEINE 

AchteorwegS, 

2103 SW Heemstede 


OUDE NUMMERS MSX GIDS 


De nummers 1 t/m 7 van de MSX Gids zijn 
GEHEEL UITVERKOCHT. Hieronder volgt een 
overzicht van de nummers welke nog wel 
verkrijgbaar zijn met een beknopte 
omschrijving van de inhoud; 


MSX GIDS NUMMER 8 


LISTINGSiTENNIS 

OTHELLO (reversi) 

INVASION FORCE 
VLAGGEN QUIZ 
LUCIFER SPEL 

MYSTERY TOWER (tekstadventure) 

64 TEKENS + 

DRENTHE PER HELICOPTER 
GELDERLAND PER HELICOPTER 
N-HOLLAND PER HELICOPTER 
Z-HOLLAND PER HELICOPTER 
UTRECHT PER HELICOPTER 
Verder: PEEKS POKES en TIPS, Niet 
officiële Z80 instructies, een volledige 
MSX tekenset voor de Fastext 80 printer en 
veel software waaronder 3 Konamies. 


MSX GIDS NUMMER 9 


LISTINGS:VOORBEREIDEND ONTLEDEN 1 t/m 3 
ZEELAND PER HELICOPTER 
N-BRABANT PER HELICOPTER 
LIMBURG PER HELICOPTER 
CALCULATOR 

Verder de cursus BASIC deel 1. 

Omzetten cassette naar disk deel 1. 

Auto fire knop (zelfbouw). PHILIPSi 
NMS8250/8255 MSX-2 en diverse software 
beschrijvingen waaronder PrintXpress en 
STARQUAKE met kaart. 


Losse nummers kosten Fl. 7,95 p.st. 

Deze nummers zijn echter nog slechts! 
beperkt leverbaar dus neem eerst even 
contact op met de uitgeefster omj 
exemplaren te bestellen. 

Tel. 020-327464 (10.00 - 18.00 uur). 


Oude nummers zijn te bestellen door over-l 
making van ƒ 7,95 per exemplaar op Giro 
5036011 t.n.v. J.Herps te Amsterdam. Voor 
Belgie Bfr. 155 op bankrekeningnummer 
235-0430464-87 bij de Generale Bankmaat-) 
schappij te Hasselt t.n.v. J.Herps, 
Postbus 10252, 1001 EG Amsterdam. 















COLORLAB 
ALLEEN VOOR MSX-2! 

Het programma werkt alleen op de kleur- 
nummers 1 t/m 5. De kleuren zijn links te 
zien als 4 grote vlakken op een ondergrond 
gevormd door kleur 1, Onderin het beeld 
IS een aantal patronen getekend met de 
Kleuren 2 t/m 5 op ondergrond kleur 1, 
zodat een aardig idee wordt verkregen van 
de werking van de verschillende kleur¬ 
combinaties. Rechtsboven wordt in een 
grafiek van 5x5 kolommen van iedere kleur 
de instelling getoond. 

Met de functietoetsen F1 t/m F5 kan één 
van de 5 kleuren worden uitgekozen om te 
veranderen, met de cursortoetsen kan de te 
veranderen basiskleur worden geselecteerd 
en met de toetsen 0 t/m 7 kan de waarde 
worden gewijzigd. Met de 
RETüRN-toets kan een instelling worden 
bewaard en met de S {swap) kan een eerder 
ingesteld beeld worden teruggehaald. 
Nogmaals S geeft weer het andere beeld.* 
Toets G maakt de andere 4 kleuren gelijk 
aan de werkkleur, zodat vanuit een 
bepaalde kleur makkelijk kleurnuances 
samengesteld kunnen worden. Na een druk op 
toets 8 wordt onder de werkkleur de waarde 
gegeven die ingevuld moet worden om 
dezelfde kleur in SCREEN 8 te krijgen. 
Indien de blauwwaarde staat ingesteld op 
een waarde die geen tegenhanger in SCREEN 
8 heeft (de waarde moet 0,2,4 of 7 zijn) 
dan wordt onder de werkkleur alleen een 
rode balk getekend. Met toets I kan de 
instructiepagina worden bekeken. 

HET PROGRAM 

Het grootste deel van het programma wordt 
ingenomen door de instructies en de 
schermopbouw. Het eigenlijke programma 
begint op regel 550, waarbij de hoofdlus 
zich tussen de regels 580—650 afspeelt. Op 
regel 580 wordt ervoor gezorgd dat een 
eventuele SCREEN 8 waarde gewist wordt en 
regel 590 plaatst de sprites die de 
werkkleur en de basiskleur aangeven. 

Interessant is mogelijk de besturing van 
de hoofdlus. Aangezien het programma naar 
de functietoetsen, de cursortoetsen en het 
toetsenbord luistert, zou dit -volgens het 
boekje- 3 uitlezingen vragen (ON KEY 
STICK(0) en INKEY$) met dan nog het nadeel 
dat steeds met KEY ON/KEY OFF gewerkt moet 
worden om te voorkomen dat een functie¬ 
toetsroutine ingeschakeld kan worden 
midden in een andere routine. Daarom zijn 
de karakters boven de cijfertoetsen 1 t/m 
5 toegewezen aan KEY 1 t/m 5 en opgenomen 
in Z$ (zie regel 210). Ook de cursor¬ 
toetsen vormen geen probleem wat dat 
betreft (CHR$ 28 t/m 31) zodat, in de 
hoofdlus, alle vertakkingen met een ON 
GOSUB via een INSTR afgehandeld kunnen 
worden. 



_w 


ENKELE VARIABELEN 

KL(5,3)= array waarin de waardes van de 
drie basiskleuren {R,G,B) voor de 5 
werkkleuren worden bijgehouden. 

NM(5,3)= als KL(5,3) maar uitsluitend voor 
de geheugenfuncties (RETURN en S) 

KN= kleurnummer van de kleur die momenteel 
werkkleur is. 


KK= kleurkolomnummer van de 
actieve basiskleur. 


momenteel 


SN en SK als KN en KK 
gebruik in de subroutine. 


speciaal voor 


S8= vlag die aangeeft of er een SCREEN 8 
waarde moet staan (0=uit, l=aan). 

Z$= string met de toegestane toetsen, 
funktietoetsen en cursortoetsen. 

De rest van de variabelen zijn hoofd¬ 
zakelijk voor algemeen gebruik waarbij N 
en F FOR-NEXT variabelen zijn. 

C.W.Jager. 


ALLEEN VOOR 64 K MACHINES 
Beeldscherm: WIDTH 36 


* COLORLAB 

* MSX2 MINIMAAL 64K VRAM 
^ by C.W. JAGER 

* (01987 MSX-Gids * 

Amsterdam 


10 
20 
30 
40 
50 
60 
70 
80 

90 ' BEGININITIALISATIE 1 
100 ONSTOPGOSUB1030:STOPON:ONERRORGO 
TO1050:DEFINTA-2:OPEN”GRP:"FOROUTPUT 
AS#1: SCREEN5, 0, 1: SET PAgÊ^, 

110 FOEN=0TO1: T$=”'’ : F0RF=1T08: READA$ 

: T$-T$+CHRS <VAL +A$) ) ; NEXTF- SPRI 

TES<N)=T$:NEXTN ^ ^ • JNHAir . bPRI 

®^'®^'®1*ö1»81»81,FF,18,3 

C,7E,FF,00,00,00 00 

130 ' INSTRUCTIES 

140 SBTPAGEl,1:COLOR=(9,0,0,0);COLOR 
y > 1 i , y: Ui/O 
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mEsVl’‘3i • ?i,'SSTRUCTIES, 88,2®, *ALGE 

en Flifen?’ functietoets 

en F1 F5de gewenste werkkleur 1-5 

m™ de cursortoetsen ^en'fc 

veranderen baslskleur te k 

170 pATA0,72,''Stel met 0-7 de Rewens 
te sterktevan de baslskleur in^” 30 ^ 

VOOKZIEÏIBGEB*,®, 

Lra??^^f'^P'^y-Sebeusen?^a= 2 ef,Jk^ 

Ren alle kleuren aan de werkkleur ** 

0 instructies.", 

A voor SCREEN 

o Indien de blauwwaarde ongeldiff 

a’ alleen een rSde 

balk.”,0,180,"^ ▼^Gehele werkkleur 
lichter of donkerder." 

^ BEGININITIALISATIE 2 

?4 Q "^LS: COLOR9 

2- S 8 = 0 ^^^^^ <5,3): DIMMMCB, 3) : 0=3: KK= 

210 ! @#S%01S3456781 

9)+CHR$(28)+CHR$(30)+CHRS(31)+CHR$(1 

C0lüi2\2%!t : ?; " - ^ ^ <'='. 1 . 6 . 1 ): 

230 ' SCHERMOPBOUV 

1 “ (cX^BETBllf<=■ “■ 

6.248,152, 14,8, 8 , 104,203 

,1,100,160,152,203,1,24,24,55,84 2 5 

6.24.88.84.3 ** ,-.o, , o 

260 DATA24,85,55,144,4.56.85,88.144. 

5-20.15.27,27,36:36:15:59,2 

^,68,o6,15,27,88,36,97,15,59,88,68,9 

160,200,203,5,208, 160.24 
o ’ ?!? ’ f • 163 . 194 . 189 3 175 169 18 

9.103.5.230.176.246.193.3 
280 FORN=0TO7:AS=MID*((STR$(N)) 2 1 ) 

< J11 124-N*16 >,PK INT#Ï litpSE 
SET (242, 124-N;icl6) : PRINT#1, AS: NEXT 

16 (240, 128), 15,BF:LIIï 

E(249,12)-(249,132).9 
300 FOEN=0TO7:LINE(i20,128-N*16)-(24 
0, 128-N:»cl6),9:NEXT 

310 F0RN=1T05: CQLOE= (N N N N) • Prpcjttt 
( 99+B*24, 135): PEIlrï#! B ’ ’ ' 

320 COLOR9,15:A$=MID$((STR$(N)) 21 ) 

“t) ^2f n f OT^êÉl' ■ Ji" i”!. «I “ > <s 

340 :NEXTF,N 

350 DATA12,12,28,28,60,28,28,89,60,8 

360 T$=" COLORLAB by CV 

: B=1' graphlcs= 25 (;ffrP 6 :tc: 
rP+lïJigrK 7)|cgrP l*grP 2)*:grP ^ ® 

PBESEKS, », , F 

390 NEXTF,N 

F 1T04: FORF= 1T05: LI NE ( A 

1^= NEXTF:FORF=5TO 
NEXTF~n‘160)-<A,168),F: A=A+1: 

^ N ; F0RN=2T024STEP2 : CIRCLE (23,18 

6),N/2,A:LINE(39,172+N)-(63,172+N) A 
: LINE(37+N, 174)- (37+N, 196) . ^ 


420 LINE( 66 , 174)-(62+N*2 lOA", s-ttitt? 

98>“'c tii:!”? 

1^^>. A:LINE( 66 , 198)-(62 

430^NEXT^ ’ ' IFA>5THENA=2 

440 FORN=174TO190STEP8: COLOR 2 3-PRFa: 
ET (118 , N) : PRINT #1 , "ïy.: èoLOR3 4 pSlp 
T(126,N):PRINT#1,:C0L0R4 5-PPFqPT 
<134, N) : PRINT#1, .'ïy. : ij^^ï6IR4, o. PRESET 

450 DRAV"C2BM175,169R14G1L13D1R12ri t 

89,169M186,172LlM189:i69MlS4 17^" 

470 DRAV*^ C2BM222 , 168R16F7L16H7C1D1 P 7 

?1£H7U16C4BM227,191H6ü9Li2M2^^^ 

480 PAIljfT C224 , 169) ,2,2: PA INT (223 171 
>,1,l:PAINT(2il,177) 4 4 ’ 

490 • SCHERMOPBOUV KLAAR 
500 SETPAGEl, 1 : C0L0R9 15 * PT?PC!T7T o 
02 ) . PSIHT# 1 , ■•DEUK EÈB TOi?! f" ® 

510 GOTO550 

BASISKLEUR 

TEKENEN 

?l?/7Ï^ii^'^^'^^®^*6iLINE<P,16)-(P+3, 

i^iö) , ib, BF ^ 

St%èls^BF: 

550 IFINKEy$=””THEN550 
560 SETPAGE 0 , 0 :COLOR 9 . 14 
570 ' HOOFDLUS 

^ I NE (120, 143 ) - (248, 151 

<105+KN:<:24,134).9 0 .p 
UTpRITEl, (93 +KN:<c24+KK)»c6, 129), kI;®! 
600 AS=INKEyS;IFAS=""THEN 600 ’ 

610 A=INSTR(ZS,AS) 

9^9 9®^-^6OSUB660 , 670, 680, 690, 700.720 

720,750, 790* 

1010 ^ ’630,860,860,910,930,960,980: 

630 GOTO600 

640 ' VERTAKKINGEN 

650 ' functietoetsroutines 

660 KN=1;EETURN580 
670 KN=2:RETURN580 
680 KN=3:RETURN580 
690 KN=4:RETURN580 
700 KN=5:RETURN5S0 

viS VT instellen 

720 KL(KN,KK)-A- 6 :SN=KN:SK=KK:GOSUB 5 

740 . SCREEN -8 BEREKENING 
750 S8-1: A=98+KN>I<24: B=KL (KN 3)-TFP-i 
0]RB=30RB=50RB=6THENL I NE (Ï4i 1 (1+23 
, 151), 6 , BF: RETURN ^A+.iO 

J <B/2 ) +4)J:KL (KN, 1 ) +32*KL (KN 2 
) : AS=RIGHTS(STRS(B),3) u 

770 C0L0R9,11:PRESET(A,143):PRINT#1 
AS: RETURN • x-kijn , 

780 ' INSTRUCTIES 
790 SETPAGEl,© 

800 IFINKEyS=""THEN 800 
810 SETPAGE0,0; return 
820 . SVAP MEMORy-DISPLAy 

850 ' GELIJK MAKEN 

860 F0RN=1T05:IFN=KNTHENGOTO890 
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870 FDRF=1T03: KL<N, F)=KL<Kir, F) : SISr=ïr: 
SK=F:GOSUB530 

880 NEXTF:COLOR=<Hr,KL(N, 1 > , KL (N, 2) , K 
L<Er,3)) 

890 NEXTU:RETURN 

900 ' CURSOR LINKS, RECHTS 

910 KK=KK-1:IFKK<1THENKK=3 

920 RETÜRN590 

930 KK=KK+1:IFKK>3THENKK=1 

940 RETURN590 

950 ’ CURSOR UP, DOWN 

960 F0RN=1T03: IFKL (KN, NXTTHENKL <KN. 

N)=KL<KN,N)+l 

970 SN=KN:SK=N:GOSUB530:NEXTN:COLOR= 
CKN,KL <KN, 1),KL(KN,2),KL <KN,3)):RETU 
RN580 

980 F0RN=1T03:IFKL<KN,N)>0THENKL(KN. 
N)=KL<KN,N>-1 

990 SN=KN;SK=N;GOSUB530:NEXTN:COLOR= 
(KN,KL(KN,1),KL(KN,2),KL(KN,3)):RETU 
RN580 

1000 ’ DISPLAY NAAR MEMORY 

1010 FORN=lr05:FORF=lTD3:MM(N, Fl^KLC 

N,F >:NEXTF,N:BEEP; RETURN 

1020 ’ ONSTOP EN ONERROR AFHANDELIN 

G 

1030 STOPOFF:COLOR=NEW;RETURN1040 
1040 COLORl,15,15:CLS:END 
1050 COLOR=NEV:COLORl,15, 15;SCREEN0 
1060 PRINT”FOUT NR. ERR:PRINT”IN R 
EGEL ”;ERL;PRINT 
1070 LIST. 


CQNTROLETELL 


Röge 1 
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Regel 
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Regel 
Rege I 
Regel 
Rege I 
Rege 1 
Regel 
Regel 
Regel 
Regel 
Regel 
Rege 1 
Regel 
Rege 1 
Regel 
Regel 
Regel 
Regel 
Regel 
Regel 
Rege 1 
Regel 
Rege 1 
Regel 
Rege 1 
Regel 
Rege 1 
Regel 

Regel 
Rege 1 
Regel 
Regel 
Regel 


1 e 
20 
30 
40 
60 
bÖ 
70 
80 
90 
1 00 
1 10 
1 20 
130 
140 
1 50 
1 60 
1 70 
180 
190 
200 
210 
220 
230 
240 
260 
260 
270 
280 
230 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
4B0 
460 
470 
480 
490 
600 
610 
620 
630 
540 
660 
660 
570 
580 
690 
600 
610 
620 


INQ 

58 

- S8 

- 68 

- 68 
“ 58 

- 58 

- 58 

- 68 

~ 58 

- 247 

- 208 

- 234 

- 58 
“ 220 

- 132 

- 224 

- 138 
-213 

- 68 

- 223 

- 248 

- 246 

- 59 

- 75 

- 21 

- 194 

- 187 

- 40 

- 166 
- 226 

8 

- 70 

6 

- 128 

44 

- 107 

- 43 

- 169 

- 67 

- 162 

0 

- 73 

- 131 

- 140 

- 1 40 

- 106 

- 237 

- 1 48 

- 58 

- 233 

- 191 

68 

- 24 

2 

- 186 
- 182 

68 

- 138 

1 5 

- 223 

- 117 

- 234 
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Rege 1 
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Rege 1 
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Rege I 
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Regel 
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630 - 241 
640 - 68 
650 - 56 
660 - 182 
670 ^ 183 
680 - 184 
690 - 186 
700 - 186 


710 - 
720 - 


58 

37 


730 - 118 


68 

37 


56 

93 

181 

36 

68 

30 

85 

58 

73 


740 ^ 

760 - 
760 - 169 
770 - 190 
780 - 
790 - 
800 
810 - 
820 - 
830 - 
840 - 
850 - 
860 - 
870 - 1S6 
880 - 49 

890 - 163 

900 - 68 

910 - 239 
920 - 236 
930 - 236 
940 - 236 
960 - 68 

960 - 72 

970 - 22G 
980 - 64 

990 - 226 
1000 - 68 
1010 - 107 
1020 - 68 
1030 - 223 
1040 - 247 
1050 - 237 
1060 - 122 
1070 ^ 195 
13280 



DISKETTES 


De programma's uit de MSX-Gidsen zijn ook 
op diskette verkrijgbaar; zowel op 3.5 
inch (voor de meeste MSX computers) als op 
5.25 inch -dubbelzijdig- voor de Spectra- 
video 707 drive. Diskette nr.1 bevat de 
belangrijkste programma's van MSX-Gids 1 
t/m 3. Een verzamel diskette dus. Diskette 
nr. 4 bevat alle programma's uit Gids nr. 
4, diskette nr. 5 uit MSX-Gids nr. 5 enz. 
enz. De diskette van de extra editie heeft 
nr. XI. 


De diskettes starten automatisch op en zijn geheel 
menugestuurd met diverse keuze mogelijkheden en 
schermen; alles in hi-res graphics. D.m.v. een 
letter-keuze-menu (gebruik de HXFDletters!) kunnen 
de prograima's geladen of opgestart worden. Het menu 
bevat ook een overzidits programma, dat geschikt is 
voor twee drives en verder zijn er nog enige infor¬ 
matie- en advertoitiepagina's q? de diskette 
aanwezig. 


CASSETTES 

Ook zijn er cassettes leverbaar met de 
programma's uit de MSX-Gidsen. Op deze 
cassettes staan tevens de programma's die 
alleen geschikt zijn voor diskdrive en 
deze programma's moeten wel overgezet 
worden naar diskette en kunnen -uiteraard- 
zonder diskdrive niet gebruikt worden. De 
cassettes hebben -net als de diskettes- 
hetzelfde nummer als de MSX-Gids waarin de 
programma's staan en zijn verkrijgbaar 
vanaf nummer 7. 

De cassettes kosten ƒ 15,= per stuk 
(Belgie Bfr. 280) en de diskettes kosten ƒ 
25,= p.st. (Belgie Bfr. 470). Deze prijs 
is inclusief verzendkosten. Diskettes en 
cassettes bestellen door overmaking op 
giro 909515 t.n.v. A.Debels te Amsterdam. 
Voor Belgie kan besteld worden op rekening 
nr. 235-0430464-87 bij de Generale Bank te 
Hasselt t.n.v. J. Herps, Amsterdam. 


VERGEET BIJ DE BESTELLING NIET HET 
CASSETTE- OF DISKETTE NUMMER EN DE 
SOORT DISKETTE (3.5/5.25) TE VER¬ 
MELDEN. 


HAAST? 

DE CASSETTES E N DISK ETTES ZIJN OCSK VIRKRIJGBAAR BIJ 
THE SOFTSHCF, HTITE Iffi HTIHSTOAAT 22 A, 1057 XW 
AMSTERDflM. EER ZIJN ECHTTR ALLEEN DE LAATSTE 
NUMMERS VB(KRIJ(»AAR. CASSEnTES EN DISKETTES VAN 
OUrC NUMMERS ZIJN HIER NEET LEVERBAAR! 
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LEER, 

PROBEER 

EN PROGRAMMEER 
DEEL 2: DE EERSTE STAPPEN 


1 van deze prcgraraneercursus zijn al eniae 
begrippen genoend die raen in de wereld vaT^de 
cc^puter tegen zal kanen. Dit deel beS® ^ n^t 

^ belangriSe kretS ÏÏe 
bgna^ereen al gebruikt, namelijk HARDWARE en 


- HARD of SOFT ? - 

Met hardde wrdt datgene binnen het conputer- 
systeem bedoeld dat tastbaar is. Het is dus een 

apparaten, inclusief de 
Centm Processing Umt, waaruit het systeem 
opgebouwd IS De CPÜ neemt een centrale plaats in en 
wordt otiringd door de zogenaamde RANDAPPARATUUR. 

ïkikele veel gebruikte randapparaten zijn: 

~ ïdrÏÏS'^' waarmee we informatie op papier kunnen 

- de DISK-KtrVE, waarmee gegevensopslag op een 
z^enaamde FIDPPV-DISK (flexibele schijf) m^elijk 

- ^ MuMTC», een veredeld televisietoestel waarop 
^°^ bie i n een leesbare vorm wordt weergegeven. 

- een CASSEITE-RECC»DER, die ons in staat stelt op 
een vrij goedkope manier caze gegevens te bewaren 
op een cassetteband. 

printer betekent letterlijk AFDRUKKER, 
hoewel scmnige mensen graag alles in het 
Nederlands vertalen, is het woord printer al zover 
ingeburgerd dat we dit ook verder zullen gebruiken. 

Als we ergens een grote verscheidenheid in soorten 
en maten kennen, is het wel op het gebied van de 
printers. De belangrijkste verschillen zitten dan 
ya^ in de iianier waarop de KARAKTERS (dit zijn de 
letters, cijfers, leestekens en grafische tekens) op 
het papi^ gedrukt worden. De meest gebruikte 
soorten zijn: 

- MATRIXPRprrER, waarbij de karakters gevormd worden 
door een hoev^lheid punten, die in een matrix 
gerangschikt zijn. Hoe groter de matrix, dus hoe 
nieer punten er beschikbaar zijn on een karakter te 
vormen^ des te beter is het lettertype van de prin- 
er. De letter A wordt bijvoorbeeld zo weergegeven: 




lORAKI^RBrrER, die net als een elektronische 
typ^^e voorzien is van een bolletje met daarop 
aie tekens die met de printer mogelijk zijn. De 
tek^ worden hierbij niet door middel van een serie 
geyorad, maar in een geheel op papier afge- 
lettertype hangt af van de bol en niet 
van de kodes die door de ccmputer naar de printer 
pSntïf ^ tegenstelling tot de Ltrix- 

-RpiPRBnER (LIMEPRBrnR), die meestal van een 
^arop alle mogelijke karakters 
sta^ Een regel wordt in één keer op papier gezet 

degelijke printer al erg aan¬ 
trekkelijk voor bedrijven waar grote rapporten of 
stapels fakturen afgedrukt moeten worden. 

- PAGDfflPRlMER (PAGEPRBrTER), een technisch wonder- 
^ in één keer op papier 

gedrukt ^ worden met een lettertype dat meestal 
zeer go^ genoand kan worden. Over de snelheid valt 

twisten bij dit soort, overigens 
kostbare printers. ^ 

P^^ters worden op kleinere schaal (in 
I^erland) laserprinters toegepast bij de grotere 
bedrijven, die een kwaliteit leveren waar een 
drukker trots op zou zijn. 

Bij al deze printers praten we over het drukken od 
^per. De reden van deze af druk is vaak het feit 
dat men een zogenaamde HARDCQPY van de infomatie 
wil hebben. Dit betekent dat er gebruik gemaakt 
^ uitvoermedium cm de gegevens 
bijvMr^ld in een vergadering uit te delen of in 
^ blad af te binnen drukken. Het is dus een tast- 
bare vorm van uitvoeren , de hardcopy blijft ook be- 
schikba^ na het uitschakelen van het coipitersy- 
steem. Een SCFTCXFy daarentegen is bijvoorbeeld het 
van tetet op een beeldscherm, welke 
verdwijnt na uitschakelen van de ccmputer. 

^ diskdriye is voor een zakelijke gebruiker naast 
een w^ al snel een must. Koopt men een MSX-2, dan 
^ bij de meeste types de diskdrive al aanwezig 
zijn in de systeonkast. De verschillen zijn meestal 

betrekking tot de OPSLAG- 
CAPACITECT IS de drive van bijv. de nieuwe MSX-en 
van Philips aantrekkelijk voor een klein bedrijf 
terrojl die van de oudere types (o.a. VG-8235) iets 
grote gegevensbestanden toelaten. De capa- 
citeit ^ de eerste serie is namelijk 720 trnnpvTE 
tejmjl de tweede 'slechts' 36© K kan opslaan. Bij 
prote ^tanden kan deze capaciteit een zeer 
telai^ijk gegeven zijn. Het is dan ook geen overbo- 
^ge handeling c*n hierover zoveel mogelijk informa- 
tie te verzaïrfèlen alvorens tot aanschaf over te 
gaan. 
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Een incmtor aanschaffen is een afweging van wensen 
en kosten. Wil men een kleurenmaiitor, dan zal al 
gauw diep in de buidel getast moeten worden. 
Daarentegen zal voor veel mensen een MONOCHROME mo¬ 
nitor afdoende zijn, waarbij de karakters afgebeeld 
TOrden tegen een groene of amberkleurige achtergrond 
(ook grijs is mogelijk). 

De RESOÜJriE geeft aan hoeveel beeldpunten een iiiOTii— 
tor horizontaal en vertikaal kan weergeven, met an¬ 
dere woorden: een hoge resolutie betekent een gede¬ 
tailleerd beeld. 

Na een korte verhandeling over de hardware waaruit 
ons ccnpitersysteon opgebouwd is, kanen we bij het 
tweede punt: de SOFTWARE. Aan zoveel apparatuur 
hebben we namelijk bijzaïder weinig, zolang er aan 
de ccnpiter geen opdrachten gegeven worden om de 
hardware ook werkelijk te benutten. De software 
omhelst alle instrukties die we in de vorm van een 
programma aan de computer geven. Daarbij hoort niet 
alleen de APPLIKATIE-SOTTWARE, die we zelf na het 
leren van een prograitmeertaal maken cm onze wensen 
te programmeren, maar ook de SYSTEEM-SCFTMARE, die 
door de fabrikant al in de ccnpiter is aangebracht 
cm alle standaardfunkties van het systeem -bijvoor¬ 
beeld het aftasten van het toetsenbord en het 
weergeven op eai beeldscherm- uit te kunnen voeren. 
Deze systeemsoftware wordt vastgelegd door de fa¬ 
brikant en kan ckxir de gebruiker niet gewijzigd 
worden. 

Zoals we in het vorige deel cQ. zagen is een program¬ 
ma ^ verzameling instrukties die de computer 
begrijpt. Deze instrukties staan in het interne 
geheugen en worden in een bepaalde volgorde afge- 
handeid. & is echter een tweede manier cm de 
computer iets te laten doen , namelijk het geven van 
een OCMMANDO: we gev^ een opdracht aan de computer 
zonder deze te voorzien van een r^elnuniner. De op¬ 
dracht wordt dan niet opgencmen in een programma, 
maar direkt uitgevoerd (in t^enstelling tot een 
instruktie in een progransna, die pas wordt uitge¬ 
voerd als we het gehele progranma opstarten). 

Een serie opdrachten in de ccnputer vormt samen een 
progranma. Het programma kan opgesplitst worden in 
afzonderlijke instrukties, die wel met pika ar in 
verband staan, maar toch één voor één uitgevoerd 
worden. Wat gebeurt er nu als we het progranma 
opstarten? 

- het besturingsorgaan bepaalt welke instruktie aan 
de beurt is en brengt deze vanuit het interne 
g^eugen, w^ de instrukties opgeslagen zijn, naar 
die plaats in het besturingsorgaan, waar de instruk¬ 
tie opgeslagen moet worden om verwerkt te kunnen 
wrden (de verwerking vindt dus niet plaats in het 
interne geheugen). 

- de ^truktie wordt door de computer geanalyseerd, 
dat wil zegg^ dat de computer gaat controleren of 
het een geldige instruktie is, welke gegevens er 
tijdens de verwerking van de instruktie gebruikt 
moeten worden en wat er mee gedaan moet worden. De 
uitvoering van de instruktie wordt tijdens en na de 
analyse geregeld door het besturingsorgaan. 

- indien er gerekend moet worden, worden de beno¬ 
digde gegevens in het rekenorgaan geplaatst waar de 
berekening of vergelijking plaatsvindt. 

- het resultaat van de verwerking wordt in het in¬ 
terne geheugen geplaatst voor later gebruik. 


- de eerstvolgende instruktie wordt bepaald door het 
besturingso^am en verwerkt. Deze regelt ook het 
zonodig beëindigen van het progranma na het optredöi 
van een fout of aan het eind van het programma. 



A= Besturingsorgaan. 

B= Analyse en verwerking door het be¬ 
sturingsorgaan. 

C= Interne geheugen. 

D= Rekenorgaan. 

1= Eerstvolgende instructie. 

2= Fout of einde programma. 

3= Gegeven (b.v. resultaat van een bere¬ 
kening. 

4= Gegeven(s) om mee te rekenen / verge¬ 
lijken. 

5= Resultaat van berekening / vergelijking 


Mvorens een programma kan draaien, zullen de 
instrukties en gegevens ingevoerd moeten worden en 
in het interne geheugen worden gezet. Het programma 
wordt in eerste instantie via een toetsenbord inge¬ 
voerd en nadat het opgeslagen is pp een cassette of 
floppy-disk kan het de volgende keer ingeladen 
worden cm herhaaldelijk intypen te voorkomen. De 
gegevens die we willen verwerken kunnen we via het 
toetsenbord, maar bijvoorbeeld ook met een leespen 
(denk aan streepjeskodes) of vanaf een schijf 
invoeren. 


- GEGEVENS - 

We hebben het woord gegevens al vele malen laten 
vall^ zolder er bij stil te staan wat dit nu 
precies voorstelt. Een andere benaming voor gegevens 
is DA‘n( en het is dan ook niet verwonderlijk dat er 
(ook in Nederland) steeds meer gebruik genaakt wordt 
van het woord DATABASE, waarmee meestal een 
eenvoudig bestand bedoeld wordt waarin bijvoorbeeld 
gegevens over het artikelassortiment van een firma 
staan. Een 'echte' database is niet zo eenvoudig van 
opbouw en daarvan is pp een computer in de orde van 
grootte van de MSX ook bepaald geen sprake. Toch 

zullen we zo hier en daar het woord wel hanteren, 
maar deze opnerking moest geplaatst worden om ver¬ 
beteringen door geroutineerde autcmatiserings- 
raensen te voorkomen. 
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We kunnen gegevens indelen in twee hoofdgroepoi: 

- MiFANUMHUIKE gegevens, dit zijn alle gegevens 

^ bijvoorbeeld namen 

- NÜMTOIEKE gegevens, waarmee we kunnen rekenen In 

stellen wel bepaalde eisen aan zo'n getal. Over deze 
eisen hebben we het later in de cursus. 

Alfan^ieke gegevens kunnen dus letters, cijfers 
of andere tekens zijn. We kunnen een getal, waarvan 
in eerste instantie zullen zeggen: dat is 

biSrwS^ ^ alfanumeriek gegeven zien. Neem 
Mjyoorbeeld een adres: Hofpjesweg 14. Het getal 14 
bestaat weliswaar uit cijfers, maar het is aeen 
gegeven dat bedoeld is om er mee te rekenen. 

In het verl^ van dit 2e deel is het U misschien 
opgevall^ dat er onderscheid bestaat tussen 
v^ en formatie. Kortgezegd zijn gS?^ ^ 
dingen, die we in de computer invoeren,^^ama het 
pr^anna dat in het geheugen zit ervoor moet zorgen 
dat we de gewenste informatie krijgen. In schema: 



\/e«.ioeR.KC»\^ 

dood 

C.P.U. 



LUtooeR. 

OcJl 


ue 


efficiënte manier van werken is de INFX^^ 
MATipoc^IENING: men stelt rechtstreeks * vragen* 
aan de computer (met andere woorden: men v^rt 
gege vens over eoi bepaald onderwerp in) en de 
computer geeft meteen antwoord. Dit is ideaal voor 
hijvoorbeeld telefonische verkoop, waarbij men bin¬ 
nen ^ele sekonden wil weten of een bepaald artikel 
nog in voorraad is. 

Naast de indeling in alfanumerieke en numerieke 

«ie be^ippen V3\STE - en 
VaRISBELE gegevens. Zoals de naam al zegt is een 

verwerkingen 

hetzelfde blijft, bijvoorbeeld een BTW-perc«ntage 
dat zelden gewijzigd hoeft te worden. Zo’n 
percentage kunnen we dan ook als vast getal in een 
prograimra opnonen op die plaatsen waar er mee 
gerekend moet worden. 

Variabel zijn die gegevens waarvan tijdens het maken 
van een progranroa nog niets vaststaat over de waarde 
^van. Het bedrag dat op een rekening moet worden 
^gedrukt hangt af vm het artikel en de aantallen 
die verkocht zijn. Dit gegeven kan dus pas bepaald 
worden nadat de overige gegevens zijn ingevoerd en 
er een berekening heeft plaatsgevonden. 

- STRUKTUREN - 

^ gegevens, die we invoeren, worden volgens een 
bepaalde STRUKPUUR vastgelegd, afhankelijk van de 
pro^arana's en de ^jparatuur. Met struktuur bedoelen 
we de manier waarop gegevens cxiderling met elkaar in 
verband staan. Daarin onderscheiden we: 

de L^ISCHE struktuur, dat wil zeggen de struktuur 
zoals de g^ruiker van een bestand die ziet. Een 
voorbeeld is een klantenbestand, waarvan we weten 
Mt naam, adres m woonplaats van een klant bij el¬ 
kaar horen; ze zijn volgens een bepaalde struktuur 
aan elkaar verimden. 


de FYSIEKE struktuur, waarmee we bedoelen: de 
WIJK w^op de gegevens daadwerkelijk zijn 
^tgelegd op ^ bepaald opslagmedium, bijvoorbeeld 
de struktuur die op een schijfje is aangebracht om 
gegevens met elkaar te 'verbinden*. 

elkaar horen zijn gegroepeerd in 
een raxxKD. Al deze gegevens hebben dus betrekking 
op hetzelfde onderwrp. Een record bestaat uit 
FIELDS (velden), die elk een gegeven over dat 
onderwerp bevatten (bijvoorbeeld een veld met de 
naam van e® klant). Cm nu zo'n record te kunnen 
verwijken is deze voorzien van een KEY (sleutel). 
Dit IS een uniek gegeven (dat wil zeggen: er is maar 
1 record met een bepa^de sleutel) waarmee we een 
recorf kunnen identificeren en daardoor onder¬ 
scheiden van alle andere records. 

Tenslotte spreken we over een FYSIEK record als een 
coipiter meerdere records tegelijk leest of schrijft 
van of naar ^ schijf of cassette. Er worden dus 
meeraere logische records gelezen of geschreven in 1 
handeling. Zo’n fysiek record heet ook wel BLKC. 

^ U iets meer weet over hardware, software en over 
de soorten gegevens, is het tijd U met de felbe¬ 
geerde kunst van het programneren bezig te houden. 
W^t zoals Ik eerder opmerkte is er heel wat voor 
nodig on e^ goed programta te produceren. Daarbij 
kemt met ^leen een goed gebruik van een program- 
juist ook het inzicht om een 
probleem op een zo efficiënt mogelijke manier op te 
l«s^. Een klein beetje aanleg is wel op zijn 
plaats, maar er is ook door oefening veel aan te 
doen. Laten we maar eens gaan kijken wat er aan een 
prograitïna vooraf gaat. 


- ANALYSE IS LONEND - 

Mental worden hoane- en personal caiputers niet 
gekorat vanwege tijdnood en een behoefte aan een 
snelle machine bij de toekomstige gebruikers. Bii 
bedrijv^ ligt dat vaak wel anders: voor een snelle 
verwerking van gegevens in een groot bedrijf is een 
ccnpit^ bijna ondenkbaar, ook al wordt nog vaak de 
opterking geplaatst: 'Yroeger kcaiden we het toch ook 
zonder, waarem nu dan niet meer 
Een b^ijf dat een groot systeem aanschaft heeft 
een bej^de doelstelling voor ogen. Men heeft 
werkzaamheden die duidelijk sneller en goedkoper 
geda^ word^ als er een coipiter aan te pas kemt. 
E^ dergelijk systeem wordt (als het goed is!) dan 
uitvoerige analyse aangeschaft en zal 
m^b^^p van de juiste software waarschijnlijk 
goed tot zijn recht konen. 

Bij de aanschaf van een thuiscomputer is het helaas 
nog te vaak de verkoper die bepaalt wat voor een 
gebruiker de juiste computer is. In zaken, waar cem- 
^ters als w^ broodjes over de toonbank gaan 
tegen dumpprijzen, moet men geen hoog gekwalificeerd 
perscsieel verwachten. Men weet wel iets over het hoe 
en rat van een conpiter, maar de aankoop blijft in 
veel gevallen een gok. Pas later blijkt het een dure 
gok geweest te zijn: het apparaat werkt niet zoals U 
verwacht had en alleen loet de duurste software valt 
J^edelijk gebruik van te maken. Nog erger 
wordt het als U een ccopiter heeft aangeschaft die 
ccmpleet gedumpt is: zelfs software wordt er niet 
voor gemaakt, omdat er on bepaalde redenen geen 
lü^kt voor bestaat- De keus is dan: overgaan op een 
ineuw, populairder systeo® of zelf de benodigde 
toepassingen maken. 
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- EIGEN SOFTWARE - 

Als U eigen software gaat maken zijn de volgende 6 
fases van belang: 


1) PROBLEEM-OMSCHRIJVING 

2) PROBLEEM-ANALYSE 

3) DIAGRAMMEN MAKEN 

4) INSTRUKTIES SCHRIJVEN 

5) TESTEN 

6) DOKUMENTEREN 


Natuurlijk kan een klein prograiana direkt op de 

cmputer ingevoerd worden, maar zodra een probleem 

ingewikkelder wordt, is het toch nodig deze 6 

stappen te doorlopen. 

1) In de probleatranschrijving bep^t U wat Uw 
probleem inhoudt: wat wilt U nu eigenlijk precies 
weten? Er moet dus bepaald worden wat Uw INFOR- 
MATTEBïHCflFTE is. Pas nadat een dergelijke be¬ 
hoefte duidelijk onschreven is, kan er gewerkt 
worden aan em passende oplossing van het pro¬ 
bleem. Bij het maken van programma's komt het 
frequent voor dat men na enige tijd caitdekt dat 
er nog zaken ontbreken. Deze moeten dan achteraf 
ingebouwd worden. U begrijpt dat dit veel meer 
tijd kost dan wanneer eerst een goede omschrij¬ 
ving van het probleem gemaakt was. 

2) Tijdens de analyse is het van belang dat exakt 
wordt bepa^d hoe de uiteindelijke informatie er 
uit gaat zien. U moet zich dus afvragen welk re¬ 
sultaat een programma moet leveren. Daarbij moet 
ontschreven worden welke gegevens nodig zijn cm 
het gewenste resultaat te bereiken en waar die 
gegevens vandaan komen. Dit kan van een randappa- 
raat zijn, bijvoorbeeld een bestand op een floppy 
disk, maar een gegeven lan ook uit een berekening 
binnen het programma afkomstig zijn. Er zullen 
variabele en vaste gegevens gebruikt worden en 
een duidelijke scheiding daartussen is noodza¬ 
kelijk. De gewenste informatie zal met behulp van 
verschillende opdrachten uit het progranroa moeten 
'rollen'. U moet dan wel weten of er gerekend 
moet worden of dat er vergelijkings- en bestu- 
ringsopdraditen plaats moeten vinden, etc. Het ^ 
handig cm een groot probleem te splitsen in 
DEELPROBLEMEN. U maa3ct er dan kleine problemen 
van, die elk deel uitmaken van een groot geheel. 
In Uw programma noemen we dat een SUBRCtfTINE of 
MODULE: het programma bestaat uit meerdere kleine 
oplossingen van een groot probleem, waarbij elk 
deel een bepaalde funktie vervult. De redenen on 
subroutines te gebruiken kunnen bijvoorbeeld 
zijn: duidelijkheid, snelheid en goede korrek- 
tiemogelijkheden, omdat U snel kunt zien waar een 
programma 'vast loopt'. Als een bewerking meer¬ 
dere keren voorkomt, kunt U het beste gebruik 
maken van een herhalingsopdracht, waarmee her¬ 
haaldelijk intyp^ van dezelfde regels kan worden 
voorkomen. Hoe dit in BASIC werkt, ziet U later 
in de cursus. Zoals U ziet is de probleem-analyse 
een belangrijke fase tijdens het maken van een 
prograiana. Als U hieraan voldoende tijd besteedt, 
zal er bijna altijd een goed progranroa 'te 
voorschijn kernen'. 


3) Nadat U omschreven heeft hoe in üw informatiebe¬ 
hoefte kan worden voorzien, kunt U dit duidelijk 
maken door middel van een schana. Dat vergemak¬ 
kelijkt niet alleen voor Uzelf, maar ook voor an¬ 
deren het schrijven van het programma. Er zijn 
twee standaard vormen van schematiseren: 

- het PROGÏÏAMMA-STROaiSCHEMA of STROCMDIAQUÖI. 
Hierin zijn verschillende symbolen bruikbaar 
die een bepaalde bewerking voorstellen. De 
afzcaiderlijke symbolen zijn verbonden met een 
lijn. Binnen het symbool staat een korte 
verklarende tekst. 

- het PR0(3üam-STRUKTUURDIA(3iAM (PSD) of 
STRUCTOOyiM. Deze caiderscheidt zich van het 
stroomdiagram doordat er alleen gebruik gemaakt 
wordt van blokken, die aan elkaar zitten. Er 
zijn geen verbindingslijnen. De blokken be¬ 
vatten ook hier een verklarende tekst. 

Als voorbeeld ziet U hieronder twee diagraaen, 
waarin het samenstellen van een boodschappenlijstje 
wordt uitgebeeld. 




ooIj!^4I\A 
aA.'tCvt'SX - " 


o-ouifcJL 

V\cdb oontoe'kjC^e 

BeAeKeiv. dte, ooiv 
■be, scKo^cii, 
VvocoeeA^WeO^ 

cUe, Koc.- 



Het verschil is duidelijk, maar welke vorm nu het 
makkelijkst hanteerbaar is, hangt vooral van 
persoonlijke ervaringen af. Wel is het zo dat de 2e 
vorm van schematiseren, het PSD, steeds meer in c<p- 
kemst is en qp het I2-examen (een van de AMBI- 
modules oude stijl) zal Uw vaardigheid op dit gebied 
dan ook getest worden. Hoe het tekenen van de 
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schema's precies in z'n werk gaat, kan ik binnen 
deze cursus niet uiteenzetten. Bekijk hiervoor bij 
voorkei^ I2-boeken, die in elke goede boekhandel 
verkrijgbaar zijn. 

4) 1^ de v^erk^ van de gegevens op papier staat, 
IS de tijd rijp cm üw computer aan te zetten. De 
4e fase, het schrijven van de instrukties in een 
voor Uw systeon geschikte progranmeertaal, kan 
namelijk uitgevoerd worden op het toetsenbord 
(alhoewel dit op papier ook mogelijk is). Als U 
een korrekt schema heeft getekend, kan deze fase 
als een vertaling gezien worden: U zet de 
getekende ha^elingen cm in woorden die de 
ccnputer begrijpt. Waarschijnlijk zult U niet 
direkt een volledig schana maken en enkele aan¬ 
vulling^ zijn dan ook nog wel eens nodig. De 
hoofdlijnen zou U echter uit de tekening moeten 
kimen halen. In deze fase kiest U voor de ta al 
die U wilt gebruiken, daarbij in gedachten 
houdende dat üw computersysteem niet van alle 
wereldtalen voorzien is. De meest voorkomende 
talen op een personal en hcme-ccnpiter zijn: 

— MACHINïi'i'AAL, de taal waarbij ü de processor 
rechtstreeks kcmmando’s geeft in kodes. Deze 
taal behoeft wel flinke studie, maar als U dit 
eenmaal onder de knie heeft kunt U snelle 
programma's produceren. 

~ ASSïMBLEEIRTAAL, een taal die iets verder van de 
processorinstrukties afstaat. U schrijft een 
programma hierbij in MNEMWJICS (nee, dit is 
geen drukfout) die door de cotipiter vertaald 
worden in machinetaal. Dit vertalen gebeurt 
door middel van een CXM^ILEK, die ervoor zorgt 
dat elke mnemonic omgezet wordt in een kode die 
de processor ^ gebruiken. Na de coitpilatie is 
er een machinetaalprogramma aangemaakt dat 
opgestart kan worden. Er is dus geen vertaling 
meer mogelijk. 

- BASIC, ^ zogenaamde hogere programmeertaal. 

U schrijft in dit geval een programma in lees¬ 
baar Engels, dat ook zonder al teveel studie 
begrepen kan worfen. Een dergelijk programma 
zal telkens opiieuw vertaald worden door de 
zogenaamrie BASIC-IwrERPRETER. Tijdens het 
afwerken zal i^truktie na instruktie vertaald 
worden in machinetaal, ook een 2e, 3e of zelfs 
1000e keer dat U het programma opstart. Een 
degelijk programma zal dan ook veel trager 
zijn dan een programma dat geschreven is in 
machinetaal, maar nogmaals: BASIC is veel beter 
te begrijpen, vooral als U een beginnend 
programmeur bent. 

5) In de testfase zal het programma een uitgebreide 
test moeten ondergaan. U moet namelijk vast¬ 
stellen of het werkelijk datgene doet wat U in 
fase 1 en 2 bepaalde. Er zal met testgegevens 
gewerkt moeten worden, die bij voorkeur niet 
alleen de standaard-, maar ook erg uiteenlopende 
waardes bevatten; ook zeldzame situaties moeten 
goed opgevangen worden. Pas als ü er zeker van 
bent dat de doelstelling bereikt is, dus dat U 
door het programma in üw informatiebehoefte wordt 
voorzien, kunt U het programma definitief in 
gebruik nemen. De testfase wordt helaas vaak 
onderschat door >ntgevers van software. Het kcmt 
dan ook regelmatig voor dat een programma -na op 
de markt te zijn gebracht- nog fouten bevat en er 
een verbetering nodig is. Zorg ervoor dat U dit 
NIBr overkant ! Het is vervelend voor Uzelf, naar 
ook voor eventuele andere gebruikers. 


6) De dokvB^tatie van een programma bestaat uit een 
handleiding, welke gericht moet zijn op een 
lu^swetende gebruiker, een opscctming van de 
hardware die nodig is cm het programma te benut¬ 
ten ^ e^ duidelijke omschrijving van de 
funJrties die in het programma zijn opgencmen. 
Veel programma s worden aangeprezen als zijnde 
su^r-gebruikersvriendelijk, alles-cmvattend en 

professicxieel'. Pas echter goed op met deze 
kreten, kijk liever naar datgene wat het 
programma werkelijk doet zonder naar de reclame- 
uitspraken te kijken. Gebruik zelf bij voorkeur 
goed leesba^ Nederlands en vergeet vooral niet 
dat gebruikers waarschijnlijk weinig van 
ccnpiters weten 1 Ook voor Uzelf kan een goede 
handleiding (Micaitbeerlijk zijn, vooral als U 
meerdere programma’s heeft caitwikkeld. De test¬ 
en dokumentatiefases omvatten vaak zo'n 75% van 
de ontwikkelingstijd van een uitgebreid program¬ 
ma! ! ! Besteed daaraan dus gerust enige tijd. 


HET EINDE IN ZICHT - 

deze uitleg over het ontstaan van een programma, 
duizelt het U inisschien enigszins voor de ogen. Het 
IS gelukkig niet de bedoeling dat U na dit tweede 
deel al een volleerd programmeur bent (met program¬ 
meur wordt overigens ook de vrouwelijke kant van de 
computergebruikers bedoeld!), dus U mag best enige 
vraagtekens zetten bij de tekst. Ifocht U vragen 
hebben of is er een onderwerp met betrekking tot 
programmeren waarover U graag iets meer zou willen 
weten, dan kunt ü dit kenbaar maken door middel van 
een brief aan: 

Ridiard Altenburg 
IXiizendJoioopstraat 46 
8302 VE BoDCfêloord 

We zullen hiermee dan rekening proberen te houden in 
één van de volgende delen van de cursus pro¬ 
grammeren. 

Bp^lijk bent U over twee maanden weer 'aanwezig' 
bij 3e deel van "Leer, probeer en programneer", 
waarin we de taal BASIC in de stof gaan betrekken, 
om U langzaam vertrouwd te maken imet de computer in 
de praktijk. Nogmaals, een MSX-2/r^-l is niet 
ï^ocdzakelijk, maar imaakt het leerproces wel een stuk 
e^voudiger ! 

Graag tot de volgende keer ! 


Richard Altenburg 

i.s.m. 

Ina Stam 


= WOORDENLIJST PROGRAMMEREN DEEL 2 = 


- AFmUKKER: zie PRINTER. 

- ALETiHUMERIEK GEXïEVEN: een karakter waarmee niet 
gerekend kan worden. 

- APPLKA'TIE-SCFTWARE: het geheel van programma's 
dat we zelf voor een computer schrijven. 
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- ASSEMBLEER-TAAL: instrukties invoeren in mne- 
monics, die door een conpiier naar marh-inpi-aai 
vertaald worden. 

- BLOK: zie ïYSIEK RBCCRD. 

- OCMMANDO: e^ rechtstreekse opdracht aan de 
ccnpiter, die deze direkt gaat analyseren en 
uitvoeren. 

- OCMPILER: vertaler die assonbleertaal omzet in 
machinetaal. 

- DATA: zie GEGEVENS. 

- DATABASE: een complex geheel van aan el Vaar 
gekoppelde bestanden. In de haneccmputersfeer een 
bestand met gegevens over eoi bepaald onderwerp. 

- DEELP^IM: een deel van een groter prcbleen. 
Deze indeling wordt ter verduidelijking voor de 
prograiuneur aangebracht. 

- DISK-MTVE: een randapparaat, waarin we een 
floppy-disk kunnen schuiven waarop gegevensopslag 
mogelijk is. 

- FIELD: een deel van een record, een gegeven dat 
deel uitmaakt van de beschrijving van een onder¬ 
werp. 

- FllPW DISK: flexie schijf, een c^lagmedium 
dat in de bedrijfssferen aan populariteit ver¬ 
liest, maar door de dalende prijs in de hcne- 
conputers opaars geniet. 

- FYSIEK RBCXRD: één of meerdere logische records 
die door de ccnputer in een lees- of 
schrijfopdracht worden overgebracht van of naar 
het randapparaat. 

- FYSIEKE srroUKTUUR: de struktuur van gegevens zoals 
<üe werkelijk aanwezig is op een opslagmedium of 
in het geheugen. 

- GEX3YFÏIS: invoer voor de ccnputer waarmee een 
verwerking wordt 'gevoed'. 

HARDOSY: tastbare uitvoer van de ccnputer, 
datgene wat na uitschakelen van de ccnputer 
beschikbaar blijft. 

- HARDWARE: tastbare gedeelte van het ccnpu- 
tersysteon, dat wil zeggen de CPU plus de rand- 
apparaten. 

- ^IFX®MAtie: de resultaten van een gegevens¬ 
verwerking doo r de ccnputer. 

IWPMÖIATIE-BEHQEFTe: het geheel aan informatie dat 
een gebruiker nodig heeft en dat als uitgangspunt 
wordt gebruikt voor de caitwikkeling van een 
prograrana. 

INEX^MATTEVOC^ZIEWING: een vraag- en antwoordpro- 
gramna, dat de gebruiker snel in de gevraagde in¬ 
formatie voorziet. 

IRTERPRETER: een vertaler die de prograitma's in 
hogere programneertalen (bijv BASIC) cmzet in 
machinetaal. 

- K: zie KILOBYTE. 

- KARAKTER: een letter, cijfer of ander teken. 

- KEY: een sleutel, waarmee een record geïdenti¬ 
ficeerd kan worden en daardoor wordt geselek- 
teerd uit een groot b^tand. 

- KIIXBYTE: een eenheid waarin onder andere de 
grootte van het interne g^eugen, maar ook de op¬ 
slagcapaciteit van een disk-drive wordt uitge- 
drukt. 1 KI1£®YTE = 1024 bytes, (zie vervolg 
cursus). 

- lOGISCH RECCRD: een groep gegevens die betrekking 
hebben op hetzelfde onderwerp. 

- LOGISCHE STRUKIDUR: de struktuur in gegevens zoals 
de gebruiker die ziet. 

- MCHBEr^: de taal waarin de ccoputer alle 
instrukties vertaalt cm ze te kunnen uitvoeren. 

- MNEMCWIC: een opdracht in assembleertaal. 

- MODULE: zie SUBRCXTTIHE. 

- FCWITCR: een beeldscherm waarop de axtputer infor¬ 
matie in leesbare vorm weergeeft. 


MCWOCHRCME MOTTKXl: een beeldscherm waarop slechts 
1 achtergrondkleur en voorgrcndkleur mogelijk is 
(met alle lichte tot donkere tinten die daarbij 
horen). 

- NUMERIEK (ÏEX3YEN: een gegeven waarmee de ccnputer 
kan rekenen. 

- OTSLAGCAPACITEIT: de hoeveelheid kilobytes die de 
disk-drive kan opslaan op een daarvoor bestoifde 
floppy disk. 

- PRINTER: een randapparaat waarmee we een hardcopy 
op papier kunnen maken van de gewenste informatie. 

- PR(XRAMMA-STROCMSCHEMA: vorm van schematiseren van 
prograitma's, waarbij voor elke soort verwerking 
e^ symbool gebruikt wordt. De cmderlinge symtolen 
zijn door middel van een lijn verbonden. 

- PR0(3Um-STRUKTUURDIA(3WI: de andere standaard 
vorm van schenatiseren, waarbij alleen gebruik 
wordt gemaakt van aaneengesloten blokkoi. 

- PSD: zie PROOTiMMA-STRüKTUÜRDIACRAM. 

- RANDAPPARATOUR: alle hardware, afgezien van de 
CPU, waaruit een (xn^tersysteem is opgebouwd. 

- RBCCXU): een groep bij elkaar horende gegevens. 

- RESOIDTIE: maatstaf cm de detaillering van weer¬ 
gave door een mcaiitor te cmsdirijven. 

- SCCTOOPY: een niet-tastbare vorm van uitvoeren van 
informatie, die verloren gaat nadat de ccnputer 
uitgeschakeld wordt. 

- SCFTWARE: het geheel aan programma's die voor een 
computer gemaakt zijn. De niet-tastbare delen van 
het systeem. 

- STRCKM)IAGRAM:zie PROCaUiMMASTROCMSCHEMA 

- SIRUCTOGRAM: zie P!KX3U\MMA-STOUKTOURDIAG3RAM. 

- STRUKTUUR: de wijze waarop gegevens onderling met 
elkaar in verband staan. 

- SUBRCUTINE: een deeloplossing van een groter 
probleem, dat een deel van een progranma vormt dat 
zc «K)dig wordt 'aangeroepen.' 

- SYSTEEM-SOFTWiRE: de door de fabrikant geleverde 
software, die bij pc's in de systeemkast is 
caidergebracht. 

- VARIMEL CTXaYEW: een gegeven waarvan tijdens de 
ontwikkeling van het programma niet vaststaat wat 
de waarde ervan zal zijn tijdens de 'run' (het 
draaien van de software). 

- VAST (31GEVEN: een gegeven waarvan de waarde 
tijdens progranmering al vaststaat. De waarde 
wordt vast in het programna opgoïcmen. 
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ZET HET OP 
(DEEL 2) 


DISK 


Het artikel (deel 1) van vorige keer is in vruchtbare 
aarde gevallen, dat is zeker. Uit de reakties die 
zelfs al één dag na het verschijnen van de vorige 
MSX-GIDS bij mij in de postbus lagen, moge blijken 
dat er behoefte (en zeker interesse) bestaat voor (en 
aan) ^t soort artikel^ en software. Bij de samen¬ 
stelling van dit deel is er al rekening mee gehouden; 
van het grote stuk machinetaal dat dit keer beschre¬ 
ven wordt, zal ook de assembly listing worden opgeno¬ 
men, zodat machinetaalkundigen de wer)djig Icunnen 
volg^. Het volgende pro^amna is voor scwitdge 
schrijvers al een oplossing van hun probleon. 
Dus.SCHRIJVEN MAAR! 

rfc)cht je ideeën hebben over onderwerpen die je graag 
in een volgend artikel in dit blad zou willen zien, 
schrijf dan naar de postbus (postbus 287 - 185(5 AG 
HEIIDO) of naar de redaktie. Dan Jcunnen we die 
suggesties in overweging nemen. 


DEZE KEER 

Net als in deel 1 gaat het deze keer ook weer over 
problemen die je tegenkomt als je gaat proberen een 
programma van e^ cassette op disk te zetten. In deze 
aflevering ^ ik enkele vaak voorkomende hindernis¬ 
sen beschrijven die je op de weg naar succes zal 
kunnen tegenkomen. En in het bijzonder één krachtige 
methode om een vaak voorkomend probleem op te lossen. 
Deze oplossing wordt bereikt met een programma, 
BÏTEBREKER, dat in dit deel wordt beschreven. De 
methode, werking en beperkingen van dit stuk soft- 
w^egereedschap zullen (hopelijk) aan het einde van 
dit artikel duidelijk zijn. 


DE BYTEBREKER 

BYTEBREKER is een programma dat zelf machinetaal- 
programma's van cassette naar diskette kan weg¬ 
schrijven en RUNnen zonder dat enige kennis van 
machinetaal noodzakelijk is en bovendien werkt het 
programma op MSXL en IBX2 cctpaters. 


Dat klinkt alleonaal erg mooi, maar natuurlijk moet er 
wel aan een paar voorwaarden voldaan worden cm een 
goede werking te verzekeren. In het kort komt het 
hierop ne^; BYTEBREKER is een software tooi om een 
willekeurig byteblok naar diskette te schrijven. Voor 
de korte byteblokken die vrij laag in het geheugen 
moeten ko men, is in MSX-GIK nunmer 9 al het pro- 
graiima 'TAPEDISK' beschreven. Maar wie al eens geprcy- 
beerd heeft een groter blok op disk te zetten kent de 
problemen: het blok is te lang of staat op plaatsen 
die voor het besturingssysteen of de diskdrive 
gereserveerd zijn. (Ben beschrijving van veel 
voorkcmende problemen kun je ook vinden in de voriae 
MSX-GIDS.) 

De machinetaal (byte) blokken die met BYTEBREKER op 
(Uskette kunnen worden gezet mogen in het geheugen 
i^ere plaats innonen. Ben prograitma vanaf 018000 tot 
bijvoorbeeld geheugenplaats &HF300 is geen enkel 
probleon, terwijl het normaal in diskBASIC onmogelijk 
IS cm een dergelijk blok in te laden cmdat elk 
gebruik van adressen boven &HE000 de catputer op tilt 
zielen lat^ slaan. Het is met zo'n groot blok zelfs 
met mogelijk cm het door middel van een negatieve 
offset bij BIDAD naar beneden in het geheugen te 
laden en daarna te verplaatsen naar de oorspronke- 
lijk6 plaats an op tG starten. Afgozion van hot feit 
dat hier toch wel enige kennis van de Z80 machinetaal 
voor nodig is, begint het blok op Ö18000. Hierdoor 
kan het naar beneden zetten wel vergeten worden, 
^at Ö18000 het laagste adres is waarin onder 
diskBASIC prograniöa*s kunnen worden ingeladen. 


GESCHIEDENIS 

(kndat dit - speciaal voor de MSX-GIDS geschreven- 
prograimia gemaakt is om op de meeste MSX ccraputers te 
werken, is e^ uitgegaan dat er 64kbyte RAM 
aan^zig is in de machine. Waar deze RAM zich 
bevindt, dus in welk slot etc. is niet belangrijk, 
dat zoekt BYTEBREKER allaoaal netjes voor de 
gebniiker uit en daardoor moet het programma ook 
wrken op de MSX2 cetputers, die een exotische slot- 
indeling van de RAM hanteren zoals de SCWY 500p. 
Helaas was het voor mij niet mogelijk om het pro^ 
granrna daadwerkelijk qp deze cemputer te testen, magr 
cmdat in de software met alles rekening is gehouden 
verwacht ik geen problemen. Qp de computers die mij 
ter beschikking stemden om het prograitma uit te 
proberen (MSXl en MSX2) werkte BYTEBREKER feilloos. 
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Chgeveer anderhalf jaar geleden, toen ik net mijn 
eerste MSXl ccnïiutertje had aangeschaft, heb ik 
eigenlijk de grondslag voor BYTEBRIKER al gelegd. Ik 
maakte toen een versie die veel weg had van 
BYTEBREKIR en waar ik sindsdien al veel plezier aan 
beleefd heb. Natuurlijk waren er mensen die mij 
vroegen of ik het programma niet zó kon ctnschrijven 
dat het op iedere MSX-conputer werkte en bovendien 
gonattelijk te bedienen was. De oorspronkelijke 
versie was namelijk alleen voor mijzelf enigzins te 
doorgronden omdat door de vele veranderingen die er 
in de loop van de ontwikkeling in aan waren gebracht, 
door de bcm^ het ^ebos niet meer te zien was. In 
BYTEBREKER is weinig terug te vinden van deze eerste 
versie, behalve het feit dat alles nu mogelijk is met 
één programma, werkt het nu ook op MSX2-cc«iputers met 
RAM in expanded slots. De gevolgde methode is echter 
nog als vanouds en werkt, mits men zich aan de (nog 
nader te noemen) voorwaarden houdt, uitstekend. 


DE METHODE 

Ctadat er onder diskBASIC minder geheugen beschikbaar 
is, kan het voorkomen dat een prograirana alleen kan 
worden mgeladen als de diskdrive is afgekoppeld 
cmdat dan niet de kans bestaat dat het ingeladen 
prograiima over essentiële systeotivariabelen heen 
walst en daardoor de computer op 'slot' zet. Een 
m^er om zo'n prograitma toch in te laden onder 
diskBASIC en het 'op disk te zetten' is het net een 
zg. offset lager in het geheugen te zetten; 

BlDAD"prognaam",&H(laag adres)-&H(adres) 

Hierbij is (adres) het adres waar het programma 
oorsprcaikelijk in het geheugen begint. Na het laden 
staat het byteblok op adres (laag adres). Natuurlijk 
is het niet mogelijk om het hier te laten staan en te 
RUÏftien, tenzij het prograitma ’relocatable' is. Een 
programna is 'relocatable' als het op iedere plaats 
in het geheugen Ican werken; dit is echter alleen 
mogelijk als er in het programma geen absolute jump's 
voorkomen. Sprongen naar andere plaatsen in het 
programma mogen alleen relatief vanaf de huidige 
plaats worden uitgevoerd, anders gaat het allemaal 
hopeloos mis. Het is nu natuurlijk wèl rtogelijk cm 
het programma te SAVE'n naar disk, het inladen ervan 
(vanaf diskette) zal nu geen problonen meer opleve¬ 
ren. Cta het programma te RUNnen zal het toch eerst 
verp^atst moeten worden met behulp van een klein 
mactoetaal programmaatje. In andere delen van deze 
serie zal hierop nog iets verder worden ingegaan daar 
deze methode erg makkelijk is voor scmmige byte- 
blokken, maar totaal onmogelijk is als het programma 
niet verplaatst Ican worden. Dit kan voorkomen als het 
prograrana op een zeer laag adres in het geheugen 
start of te lang is cm de gereserveerde adressen na 
het verplaatsen te ontzien. 

Met BYTEBREKER is het dus wèl mogelijk cm een zeer 
lang Ij^eblok op disk te zetten. Hoe is dat mogelijk? 
Wel, simpel door het programma in tweeën te breken 
(vandaar de naam). Het (grote) machinetaalblok van 
cassette wordt dus in twee aparte stukken gehakt, die 
individueel moeten worden ingeladen. Door dit 
splitsen wordt het prograirroa natuurlijk niet korter 
want vlak voordat het progranma wordt opgestart 
moeten loeide blokken in het geheugen aanwezig zijn, 
maar deze blokken worden op braakliggende plaatsen in 
de ccmputer opgeslagen en pas op het laatste mcment 
op hun goede plaats gezet en opgestart. Uit deze 
beknopte beschrijving volgen eigenlijk direkt de twee 
beperkingen van dit systeem: namelijk het 'braak¬ 


liggend' stuk geheugen moet natuurlijk wel écht braak 
liggen en niet al door een eerder ingeladen blok 
gebruikt worden en het prograitma moet direkt né het 
inladen van de twee gegenereerde blokken meteen 
opstarten. Terugkeren naar BASIC is cmogelijk, cmdat 
de stackpointer met het terugkeeradres naar BASIC 
wordt verplaatst en bovendien de diskdrive wordt 
afgeschakeld. Omdat de diskdrive moet worden afge¬ 
schakeld, kan hier dus geen gebruik meer van genaakt 
worden in het programna. Dit is natuurlijk in de 
praktijk geen beletmering, omdat prograitma's die 
nonnaal al over de diskvariabelen heen worden geladen 
dit ook niet kunnen. 

Het stuk geheugen waar de blokken worden opgeslagen 
voordat ze worden o pgest art strekt zich uit van adres 
&HOC00 tot en met &H7FFF. Dit is 32k^e RAM, die 
normaal niet vaniut BASIC te gebruiken is, omdat deze 
in dezelfde "pagina's" staat als de besturingsROM die 
noodzakelijk is voor het funktioneren van de computer 
onder diskBASIC. Ctoder een pagina verstaat men een 
stuk geheugen van 16kbyte. Door de 280 (de micro¬ 
processor in de MSX machine's) kunnen 4 pagina's 
geadresseerd worden. Vier blokken van IBkbyte dus, 
die samen de 64k (65536) adressen maken. 

Er is bij het maken van BYTEBREKER vanuit gegaan, dat 
het besturingssystean na het inladen van de twee 
blokken niet meer terug naar BASIC hoeft. Het 
prograrana zet de zg. stackpointer namelijk zo hoog 
mogelijk in het geheugen: op dezelfde plaats waar hij 
normaal staat wanneer er geen diskdrive is aange¬ 
sloten. Door het verzetten van de stack gaat het 
retumadres naar BASIC verloren, maar zoals gezegd 
z^ dit in de praktijk altijd goed gaan omdat de 
diskdrive toch niet meer te benutten is als er een 
prograitma over zijn systeoitvariabelen staat. 

Nu het principe van BYTEBREKER een beetje duidelijk 
geworden is, worden de mogelijkheden nu ook 
waarschijnlijk wat doorzichtiger. Aan de hand van een 
voorbeeld zal ik laten zien welke programma's nu wel 
en welke nu juist niet met BYTEBREKER op diskette 
kunnen worden gezet. 


EEN VOORBEELDJE... 

Stel dat we een cassette hebben met een leuk 
spelletje erop, dat we graag van diskette zouden 
willen inladen, in plaats van steeds lang op het 
laden van de cassette te moeten wachten. We nonen 
even aan dat dit spel van cassette moet worden 
ingeladen met RUN"CAS:". Dit betekent dat als eerste 
een stukje BASIC op de cassette staat; de zogenaamde 
loader. Stel dat deze er als volgt uitziet: 

10 REM voorbeeld van een tape loadertje 
20 PRINT"het spelletje wordt geladen" 

30 BIiQAD"CAS:blokl",r 
40 BlOAD"CAS:blok2",r 

Als we met TAPEDISK uit het vorige nuirmer de start-, 
eind- en executieadressen uitzoeken van "blokl" en 
”blok2" blijkt bijvoorbeeld het volgende: 

Bim- Start=&H9000 
Einde=&H9845 
Exec =&H9000 

BL0K2- Start=&H8778 
Einde=&HE184 
Exec =^20256 
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Hieruit blijkt dat we "blokl" gemakkelijk op disk 
kunnen zetten. We hebben irnners onder diskfiASIC 
beschikking over de geheugenadressen van 
smm tot en met öffiOOO. Het eerste blok valt in dit 
gebied en zal dus geen problemen opleveren. Maar het 
tweede blok geeft wel problemen! Het eindadres 

overschrijdt öffi000 ver. Als we dit blok van cassette 
inladen onder diskBASIC zal de conpater RESBTten of 
op slot slaan zodra het programma is ingeladen. 

BYTEBREKER is nu de oplossing. Zet blokl gewocai zelf 
op disk of gebruik TAPEDISK uit de vorige MSX-GIDS om 
dit voor je te doen. Het tweede blok laat je door 
BYTEBREKER op disk zetten. Het programma maakt er 
zelf twee blokken van die vanzelf naar disk zullen 
worden weggeschreven onder de namen: 

BIiC*2.NRl 

BL0K2.NR2 

Pas in het BASIC loadertje regel 40 aan en voeg regel 
50 toe als volgt: 


40 BL0AD"blok2.nrl",r 
50 BLOAD"blok2.nr2",r 

SAVE ook het BASIC loadertje naar disk en run het. 
Als alles vlekkeloos is verlopen zal het spel nu 
v^elf opstarten. Als dit niet het geval is of als 
bijvoorbeeld de graphics van het spel verminkingen 
vertonen, dan moeten we de fout zoeken in blokl. De 
adressen van dit blok zijn weliswaar bekend, maar 
waarschijnlijk bevat dit blok ook een gedeelte van 
het spel dat na het RUNnen van blokl opgeslagen is in 
het gebied waar de twee stukken van blok2 terecht 
z ijn g ekomen na inladai (In het gebied van &H0000 tot 
«ar/FFF). 

Dit blijkt al uit het feit dat blok2 blokl totaal 
oyersc^i 3 ft. Als er in blokl essoitiële informatie 
zit, die tijdens het spel van belang is, dan MC®r dit 
blok wel worden verplaatst door bijvoorbeeld een 
klein loadertje waarmee blokl begint. 

In dit geval kan BYTEBREKER dus weinig voor je doen 
^ zul je de boel moeten gaan disassanbleren om de 
lout te zoeken en zelf een oplossing te vinden♦ 

Als blokl echter alleen een soort reklamebeeld qp het 
STOerm zet met de naam van het spel en dus niets ver~ 
plaatst naar andere gebieden, dan zal het snel 
werken. ^ 

ander veel voorkomend probleem bij cassette 
software is, dat men een klein machinetaal loadertje 
^ c^sette zet die allerlei andere (machinetaal) 
blokken van cassette inlaadt zonder hierbij terug te 
keren naar BASIC. Dit soort prograirma’s moet je van 
cassette dan opstarten met BI£iAD"CAS",r waarmee ie 
het eerste loafeje inlaadt en het 

brengt. Om deze programma's op disk te zetten, moet 
je ze wel onderzoeken. Dat kan dus nooit met een 
nulpprogranina gebeuren ocdat er erg veel moet worden 
aangepast voordat alles werkt. Vaak heeft deze 
software allerlei listige valstrikken die de soft- 
warehuizen er op na houden cm het illegaal kopiëren 
aan banden te leggen. 

Uit het bovenstaande voorbeeld volgt al dat BYTE¬ 
BREKER dus geen toverprogranma is waarmee "alles" 
even op disk kan worden gezet. Een progranma waarmee 
het Hogelijk is alles" naar disk te kopiëren bestaat 
vooralsnog alleen in de dromen van beginnende ccmpu- 
terenthousiastelingen. Desalniettemin is BYTEK®(ER 
een sterk wapen in het tool-arsenaal dat iedere 
ccmputerknutselaar er op na zou noeten houden. 


HET BASIC GEDEELTE 

BYTOR^ maakt gebruikt van een stuk machinetaal om 
het ^aden en verplaatsen van de blokken snel en 
foutloos te laten verlopen, maar het eigenlijke 
geschreven. In listing 1 zie je 
het BASIC ged^lte. Het invoeren van dit stuk zal 
ho^stwaarschijnlijk geen problenon opleveren. Let er 
TOl op dat je alle 'DEFUSR' en 'USR' adressen goed 
intoetst, anders zou het progranma wel eens heel iets 
anders kunnen gaan doen dan de bedoeling is. Niet aan 
te raden dus. 

Hieronder kun je zien wat voor funktie elke BASIC- 
regel in het programma heeft. Hierdoor kun je even“ 
tuele fouten, die je bij het intoetsen hebt gemaakt, 
v^en. De werking van het BASICgedeelte wordt over¬ 
zichtelijker en het zal daardoor ook mogelijk zijn je 
eigen veranderingen aan te brengen. (Bijvoorbeeld in 
de uitvoer.) De uitleg wordt vooraf gegaan door een 
regelnuinner: 

[10-100] RIM statements, niet van belang voor het 
progranma. 

[110] Hier wordt een 'doublé peek' gedefiniëerd. Het 
^ hiermee mogelijk in één keer de inhoud van twee 
adressai uit te lezen en als 16-bits getal aan een 
variabele toe te kennnen. Normaal wordt met PEEX een 
8-bits getal toegekend aan de variabele. 

[p0] kijkt of de byte's van het machinetaalgedeelte 
al zijn ingelezen. Dit hoeft namelijk alleen maar de 
eerste keer te gebeuren. 

[130] De entree-adressen in het KT (machinetaal) ge¬ 
deelte worden hier opgezet. Het MT-gedeelte bestaat 
namelijk eigenlijk uit drie kleine prograirmaatjes die 
vanuit de BASIC op bepaalde momenten worden aange¬ 
roepen. (Zie beschrijving van het MT-gedeelte). 

[140-150] Zet de juiste schenanode op (SCREQJ0), 
funktietoetsen emderin beeld weg en stel de kleur in. 

^ wordt één integer (enkele precisie) getal gemaakt 
die gaat dienen als uitvoer voor het MT- gedeelte. 

[160-190] Wacht op 'n toets en spring dan naar startl 
in het MT-gedeelte om de header van cassette te lezen 
en de start-, eind- en executieadressen alsmede de 
naam op te slaan. De variabele X is een uitvoer— 
variabele van de machinetaal om foutmeldingen te 
kunnen maken. X=1 als de CTRlr-STOP is ingedrukt of 
een tape-error heeft plaats gevonden. X=2 als het 
gelezen blok op cassette geen machinetaal is. 

[200-230] Lees de naam in uit’ de adressen waar het 
MT-gedeelte ze heeft neergezet en maak <filenaam>.NRl 
en <filenaam>.NR2. Als er geen filenaam was (spa¬ 
ties) neemt het progranroa de naam 'DÜMMY'. 

[240-310] Ken de start-, eind- en exec. adressen toe 
aan de variabelen ST,IW en EX met behulp van de 
funktie uit regel [110]. Druk de naam en adressen van 
het blok af op het beeld. 

[320-340] Bereken de twee lengtes van de twee blokken 
en PCKE ze in adressen voor de machinetaal m.b.v. de 
routine in regel 

[480] (dubbele poke). 

[350-380] Druk de adressen en gemaakte namen van de 
twee blokken af en vraag de gebruiker om de cassette 
even terug te spoelen om het inladen te starten. (De 
eerste keer was alleen cm de header te lezen.) 
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[390] Lees de twee bloltken in roet start2 van het 
MT-gedeelte. X=1 bij het terugkerai als er een error 
is opgetreden. X=2 als er nu een ander blok van cas¬ 
sette kont. Bij terugkeer naar BASIC is het tweede 
blok opgeslagen van adres SH4000 t/m ^iH4000^-[lengte 
2e blok]. Het eerste blok staat al klaar vanaf 4318800 
inJclusief loader on naar disk te worden weggezet. 

[410] Zet het eerste blok op disk. 

[420] Roep Starts aan van het IfT-gedeelte co het 
tweede blok tepjg te halen ai nu neer te zetten vanaf 
&H8800 zodat dit nu kan worden weggeschreven door de 
BASIC. 

[430] Zet het tweede blok op disk. 

[440-610] Foutafhandeling niet meldingen voor de 
gebruiker. 

¥e lop^ de globale werking nog eais na. Als het 
nodig is laden we het MT-gedeelte in (dit hoeft maar 
één keer te gebeuren). Daarna blijft het in het 
geheugen aanwezig zodat we meteen weer een programna 
kunnen 'breken'. Ook na een eventuele foutmelding 
kunnen we het progranina dan gewocai weer RUNnen; het 
MT-gedeelte wordt dan niet cainodig ingeladen. Het 
prograitiBa vraagt om een diskette in drive A:. Doe de 
(^skette waar de genaakte blokken op moeten komen in 
je drive, let er hierbij op dat de diskette niet 
'write protected' is en dat er voldoende ruimte is om 
de twee blokken te savei. Na het drukken van een 
willekeurige toets vraagt het programma je de 
cassette te starten zodat hij de header kan lezen. 
Als de header gelezen is komt informatie op het beeld 
over het originele blok en de gemaakte twee blokken. 
Spoel nu de cassette terug zodat het werkelijke 
loaden kan gaan beginnen. Als het prograiana van 
cassette is ingeladen gaat vanzelf de diskdrive 
snorren en worden de blokken naar disk wegge¬ 
schreven. Het programma licht je hierover in en stelt 
je in de gelegenheid cm eventueel meteen nog een 
programma te breken. Wil je stoppen dan druk je 
CTRL-STCS> cm uit BYTEBRKEE te komen. 


HET MACHINETAAL (MT) GEDEELTE 

On het machinetaalgedeelte in te toetsen is een hex- 
loadertje nodig. In listing 2 zie je een voorbeeld 
van een BASIC progranmaatje, waarmee het invoeren van 
de hexadecimale getallen geen probleem zal opleveren. 
Met behulp van deze loader moeten de get^len van 
listing 3 worden ingevoerd. Na het invoerai zal de 
loader zelf het MT-gedeelte SAVE'n. 

Het MT-gedeelte bestaat eigenlijk uit drie delen, die 
in de assembly listing worden aangeduid met Startl, 

Start2 en Startl. De machinetaal begint met een zeer 
kort stukje code dat ervoor zor^ dat de diskdrive 
afslaat. Door in de BASIC-listing op te nemen: 
BIDAD"BREKER",R gaat de computer hier meteen de 
machinetaal RUNnen, met als gevolg dat de diskdrive 
meteen na het inladen van BRIKER stopt met draaien. 
Deze methode werkt, omdat de diskdrive gebruik maakt 
van de timer-hook cm af te slaan. Deze timer-hook 
(een klein stukje machinetaal hoog in het geheugen) 
wordt niet meer aangeroepai als de interrupts 
uitgezet zijn. Ben machinetaalprcgraiana kan -als dat 
nodig is- de interrupt (oftewel: cmderbrekingen) 
uitzetten. Interrupts worden in computers vaak 
gebruikt cm stukjes machinetaal in het besturings¬ 
systeem periodiek aan te roepen, zoals een keyboard- 
scanroutine om het toetsenbord te lezen. Normaal 
wordt deze timer-hook elke sekcnde een aantal malen 


aangeroepen, waarbij een tellertje bijhoudt of de 
diskdrive al moet afslaan. Het is namelijk soms 
handig dat de disk blijft draaien. Hier wensen we dat 
niet en daarom roepai we gewoon in een zeer hoog 
tespo de book aan tot de drive is afgeslagen. Dit 
stukje machinetaal is verder voor BYTEBREKEK niet 
meer van belang en wordt niet meer aangeroepai. 
Mensen die na het laden van hun eigen programma's de 
drive snel willen uitzetten, kunnen dit ook in hun 
eigen programna's cpieinen. 

Van de macMnetaal is ook een assanblylisting 
opgencroen; deze zal verder niet worden besproken. In 
deze listing is een beknopte uitleg aanwezig voor 
mensen die de methode nog eens wat dieper willen 
uitpluizen of die het bank-switch systeem dat in 
BYIËBREKER is gebruikt (waardoor het op ALLE IKX- 
computers zou moeten werken) willen doorgronden. Ik 
beperk mij hier tot een beschrijving van Startl, 
Start2 en Start3. 

Startl (DEFUSRl in het BASICgedeelte) zet, cm te 
beginnen, het 'plaats'-loadertje waarmee een blok 
later weer moet worden ingeladen weg op adres &H8800 
(=MIMAIR). Dit loadertje bevat zelf op zijn beurt 
weer een stuk machinetaal (place) dat verplaatst zal 
worden als de loader wordt aangeroepen. (Kunt u het 
nog volgen? Ik wel!) Het plaats-loadertje wordt 
echter pas aangeroepen als een, door BYTEBREKER 
ganaakt, blok wordt aangeroepen van disk. Door het 
p^ats-loadertje met de blokken mee te SAVE'n naar 
disk, komt dit belangrijke stuk machinetaal elke keer 
als u uw ge-BYTEBREE3CTE versie inlaadt, in het 
geheugen. Het tweede (place)loadertje komt hoog in 
het geheugen (op adres iSIFSIB, in de voice-buffer). 
Dit stuk bevat een paar subroutines waarvan het 
'plaats'-loadertje gebruik maakt. Het is van belang 
dat dit hoog in het geheugen komt te staan (eigenlijk 
in een caigebruikt stuk geheugen), omdat het hierdoor 
straks mogelijk is om de twee blokken weer achter 
elkaar te zetten in het géheugoï zonder dat het 
programma dat dit doet wordt overschreven. 

Dit deel, Startl, leest daarna een header van de tape 
en kijkt of het wel machinetaal is. Als dit niet het 
geval is verlaat de conpiter de machinetaal cm het 
BASIC-gedeelte een foutmelduïg te laten geven. Anders 
worden de naam en start-, eind- en executieadressen 
ingelezen en opgeslagen in adressen, klaar om door de 
BASIC gebruikt te worden. Voordat het prograitma terug 
gaat naar BASIC, wordt eerst nog even de plaats- 
loader op 4318800 aangepast voor het eerste blok. De 
juiste adressen waar dit blok straks heen wordt 
verplaatst worden in het ladertje gezet. Hierdoor kan 
straks (als het blok door Start2 is ingelezen) dit 
blok samen met zijn ladertje op disk worden gezet. 

Start2 (DEFUSR2 in het BASK^edeelte) controleert of 
dezelfde tape-header wordt ingelezen en leest dan de 
blokken in. Het laden van tape begint op het adres 
net na het plaats-loadertje en schakelt precies mid¬ 
den in het tapefile cm naar adres 4314000, waar het 
tweede blok zolang wordt opgeslagen. Als het hele 
tapefile is ingelezen (de twee blokken), neemt de 
BASIC het weer over en saved het eerste blok (met 
lader) naar disk. 

Dan wordt Start3 aangeroepen. Dit stuk machinetaal 
haalt het tweede blok weer terug van adres 43J4000 en 
maakt een loadertje voor dit blok aan. Het BASIC¬ 
gedeelte zorgt er weer voor dat ook dit blok op disk 
komt. 
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Wj Het RUto tet Btt*D,r) ran hlc*l, «ortt dit 

SSs'S'J?***• 'W» van 

blok2 TOrdt dit blok achter het eerste blok gezet, 
aar ^t IS, is natuurlijk afhankelijk van de lengte 

door tet 
geheugen en daardoor 
teruggezet naar het oor- 
pronkelijke startadres van het tapefile. Met een 
jun?) naar het oorspronkelijke ejcecutiepunt wordt het 
P^a^ getart. Hiervoor is wel de stack ver¬ 
plaatst en de diskdrive 'afgekoppeld'. 

Waarschijnlijk zuIIot zich in MSX-land twee groepen 
loensen bevi^en: zij die alleen resultaten willen 
zien en zich niet zozeer interesseren voor de 

methode erg belangrijk vinden 
en zich met interesseren voor het doel van het 
^ogramia. Ik hoop dat beide groepen wat aan de 
beschrijving van BWEBREKER hebben gehad. 


VOLGENDE KEER 

In het volgde deel gaan we het hebben over RCM- 
jamner dat je aan een prograrana dat 
in RCffpack staat niets kunt veranderen; bij een 
sulletje bijvoorbeeld het aantal levens per ronde, 
^ar gaan we even wat aan doen.... Tot de volgende 

J^OOIT • 

Amoud 


LISTING 1 
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J BYTEBREKER voor de MSX-GIDS Ï 
^ geachreven door: ^ 

^ Al noud van Delden <!1—3 —'av» •*' 
* POSTBUS 287, 1850 io HEILTO J 

* 5?e?k (AoSs+n f +256 

120^ I FREEK <&HD000 ) O6THENBL0AD’'breke 

l*-i0 I)EFUSR1=:^HD0 1Aï DEFUS'R'^=/irPT'if?>i Ti* tm? 
FUSR3=&HD020:SCREEN0; VIDTH<40>fKEYOF 

COLOR2,1,1:DEFIMTX 

150 cLS:LOCATE4,9:PRlNT''Insert a fre 

fc:h disk In drive A:" « xxe 

160 LOCATE8, 10; PR lirx” PRESS ARY KPY T 
O BL0AD":DI}tMM$<6> ^ 

170 IFIMKEYS=’”'THEH’170 

'^BS: L0CATE3, 10; PRUj-jMg-pATj-T. -pup -r- 

x??GS?o?ir HBADEP-xSïspIcJfi? 

190 IFX=2GOTO460 

200 FORI=&HD00ATO&HD00F 

210 IIMS=MM$+CHR$ (PEEKa) ) 

230 ” 

240 CLS.-PRIRT” MAGICRACKS crack ffene 
rator verston 2.01” ® 

250 ST=FlirDPE<&HD 010 > 

260 Eïir=FNDPE (&HD 012 ) 

270 EX=FMDPE<&HD014) 


PRI»T”Qriginal name : 
290 LOCATEl 1 ,4:PRIMT”Start;”;HEX$ <ST 
300 LOCATEll, 5: PRIlirT”End : ” ; HEX$ <EN 
SIQ) LOCATEll, 6 : PRIirT”Exec : ” ; HEXS (EX 

HfT<I.KG/ 2 ) : 

330 AD=a5HD016: ¥RDE=FIRS: GOSUB 480 
340 AD=&HD018;WRDE=SECO:GOSUB480 

350 EEN$—LEFT$ (MMS, 6 ) +” . nr 1’* • TVOS=T F 
FTS(MMS, 6 )+”. nr 2 ” • iWUS LE 

360 LOCATEl, 8: PEIirT”Generated pro^ra 
m blocks;”:L0CATE6,10:PRINT”First®na 
i= LOCATE4, 11: PRIMT” StllT& t 
xec: 8800”:LOCATE13,12:PRINT”End-”•HE 
X$(&H8926+FIRS-1) ’ 

370 LOCATE5,14:PRINT”Second name-”-T 
TO*. LOCATEl, 16. PEINT''Start S, lïj,;, 38 

S;s?ra-f PI'ï*''r"End,. HEX» («.hS 

380 LOCATEl,19:PRINT”REWIND and star 
t again for loading”;LOCATE0,19 
390 X=USR2(0):IFX=1THEN450 
400 IFX=2THEN470 

410 BSAVEEENS, atH 8800 , ( 85 H 8926 +FIRS) 

420 X=USR 3 ( 0 ) 

C&H8926+SECO),& 

440 LOCATE0,19:BEEP;PRINT” The two 
copled. 1:0 disk ** t G0T05 

450 LOCATE0,19;BEEP;PRINT” Ta 

or' a.bor'bod **; 00T05 

460 LOCATE0,19:BEEP:PRINT” Thi 

10^^ ^ basic program! ”:G0T05 

470 LOCATE0,19:BEEP;PRINT” This i 
s^an other programblock ! ”:G0T05 

480 POKE AD, WRDE-256:kINT(WRDE/256) 

490 POKE AD+1,INT(WRDE/256> 

500 RETURN 

PRESS ANY KE 

Y FOR RESTART 

520 IFINKEYS=””GOTO520 

530 RUN 

540 L0CATE3,20; PRINT”:** PRESS ANY K 
EY FOR RETRY **” 

550 IFINKEYS=””GOTO550 
560 RETURN 

570 IFERR=70ORERR=69ORERR=68THENGOTO 

590 

580 RESUME90 

590 LOCATE0,19;BEEP;PRINT” EEROR 
, check drive or disk.. ” 

600 GOSUB540 
610 RESUME410 
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LISTING 2 

5^: 5)c ^ :4; >1; ^ vjj ^ ^ ^ ^ ^ ^ 

^ ïjc 

* Hexloader voor BYTEBEEKEE .'«t 

^BYTEBEEKEE voor de MSX-GIDS Xc 
Xcgeschreven door: :;jc 

XcArnoud van Delden <l-3-’87> * 
XcPOSTBUS 287, 1850 AG HEILOO * 

*<0 1987 MSX-GIDS AMSTEEDAM * 

*>|(***Xc****3K**)|:>K*Xc*X^X<**Xc*Xc>|c**Xc* 

130 SCREElSr0: CLS: Q=9; KEYOFF; WIDTHC40) 
Invoer programma voor Byte 

150 PEIlJ’T”Hexadecimaal invoeren van" 

; Qj "bytes. " 

160 PEIMT:PEIMT"'+• is";Q;"adressen 
verder" 

}a^ is";Q;"adressen terug” 

180 LQCATE0,14;F0EM=1T0Q;PRINT" "?• 

NEXT ^ r-KiiMi . , . 

190 FORA=&HD000TOS(HD279STEPO 
nv* i3: PRINT" Invoeradres: ” ; H 

210 LOCATE0,15:PRINTSPACES <40) 

220 LOCATE0,15:LINEINPUTAS 

230 IFA8="-"THENA=A-Q 

240 IFA$="+”THENA=A+Q 

250 IFLEN <A$) = 1THENGÖSUB400:GOTO200 

260 IF <LEN(A$) <>QX;2)THEN200 

270 CHECK=0 

280 FORB=0TOQ-1 

290 WRDE=VAL <”&H"+MID$ <A$,B*2+l.2)) 

300 CHECK=CHECK+WRDE 

310 POKEA+B,WEDE: NEXT 

320 LOCATE0,8:PRINT"Vanaf:";HEXS <A): 

checksum:";HEXS<CHECK);" " 

330 NEXT 

340 LOCATE0,20:PRINT”Saven? Toets J 
of N.»» 

350 D$=INKEYS 

360 IFD$="”THEN350 

370 I FD$O" J" ANDDSO" J •'THEN430 

380 BSAVE”BREKER", &HD000, &HD279 

300 ElfD 

' CHECK=CHECK+ 
410 LOCATÊ0,8:PRINT"VanafHEX$<A>: 

checksum: " ; HEX$ (CHECK) ; ” »> 

420 RETURN 

90*^ , 20; PRINTSPACES (40) ; GOTOl 


LISTING 3 

D000 06-FF 
D009 C9-00 
D012 00-00 
P01B 23-D0- 
D024 00-88- 
D02D B0-CD- 
D036 7C-D0- 
D03F 06-21- 
D048 10-F9- 
D051 D0-06- 
D05A F9-2A- 
D063 D0-22- 
D06C A7-ED- 
D075 3E-02- 
D07E D5-CD- 
D087 3E-01- 
D090 94-D0- 
D099 C3-24- 
D0A2 49-27- 
D0AB 49-4E- 


-C5-CD- 

- 00 - 00 - 

- 00 - 00 - 

-C3-C5- 

-01-24- 

•El-00- 

•10-FB- 

■0A-D0- 

•CD-El- 

06-CD- 

14-D0- 

86 - 88 - 

42-23- 

32-Fe- 

E4-00- 

32-F8- 

FB-C9- 

00-2A- 

61-6D- 

47-20- 


-9F-FD-C1 
- 00 - 00-00 
- 00 - 00-00 
-D0-C3-2E 
-01-21-53 
■38-54-06 
'FE-D0—20 
•CD-7C-D0 
00-38-38 
7C-D0-77- 
22-8E-88 
E5-C1-2A- 
22-83-88- 
F7-18-10- 
Dl-Cl-El- 
F7-CD-E7- 
3A-C1-FC- 
2A-2A-2A- 
20-4C-4F- 
74-68-65- 


-10-F9 

- 00-00 

-00-C3 

-Dl-11 

-Dl-ED 

-0A-CD 

-37-06- 

-77-23- 

- 21 - 10 - 

-23-10- 

-2A-10- 

-12-D0- 

-18-17- 

-E5-C5- 

-D0-E1- 

-00-CD- 

-26—40— 

- 20-20 

-41-44- 

-20-70- 


-5FD 

-C9 

-C3 

-51E 

-2E0 

-3C7 

-482 

-3B4 

-358 

-39F 

-379 

-4B2 

-355 

-433 

-6AA 

-4E1 

-585 

-ICF 

-27E 

2CF 


D0B4 72 
D0BD 77 
D0C6 El 
D0CF 20 
D0D8 06 
D0E1 42 
D0EA 00 
D0F3 7c 
D0FC 21 
D105 7C- 
D10E 21- 
Dl 17 D0- 
D120 16- 
D129 16- 
D132 26- 
D13B 00- 
D144 2A- 
D14D 88- 
D156 88- 
D15F CD- 

8i9! èa: 

D17A 4B- 
D183 67- 
D18C 20- 
D195 6F- 
D19E 61- 
D1A7 20- 
D1B0 37- 
D1B9 FD- 
D1C2 E5- 
DICB 31- 
D1D4 00- 
DIDD CD- 
D1E6 26- 
DIEF 40- 
D1F8 CD- 
D201 FA 
D20A C9 
D213 A4 
D21C 18 
D225 5F 
D22E 5F 
D237 3E- 
D240 Fl- 
D249 F5- 
D252 A8- 
D25B C6- 
D264 2F- 
D26D 32- 
D276 C9- 


-6F-67 

-20-2A 

-00-38 

-A4-21 

CD-A2 

F3-26 

-38-9A 

-D0-BE 

-24-89 

-D0-77 

-00—40 

-77-23 

-D0-22- 

-8S-C3- 

-40-CD- 

-40-ED- 

-16-D0- 

-CD-94- 

-11-75- 

-A7-F9- 

M-it 

-53-20- 
-65-6E- 
-56-32- 
-72-20- 
-6E-20- 
-33-30- 
■CD-00- 
-Cl-10- 
-Dl-13- 
■7F-F3- 
• 01 - 00 - 
■B6-F9- 
■00-CD- 
18-0C- 
C2-F9- 
CF-F9- 
E5-CD 
B2-21 
E0-F3 
3E-C0 
2F-4F- 
AB-C6- 
A7-C9- 
57-DB- 
7A-0F- 
- ^-15- 
67-3A- 
FF-FF- 
00 - 00 - 


-72-61 
2A-2A 
BD-CD 
-9C-D0 
-00-23 
40-CD 
- 21-10 
-C2-75 
-ED-4B 
-23-0B 
-ED-4B- 
-0B-78- 
-13-88- 
-8C-D0- 
-24-00- 
-4B-1S- 
-22-16- 
-D0-FB- 
-F9-01- 
-21-24- 

-63-72- 

-65-72- 

-2E-30- 

■41-2E- 

-44-65- 

■2D-31- 

-88-06- 

■F9-3E- 

•77-01- 

F3-CD- 

00 - 11 - 

C3-00- 

C2-F9- 

3A-C1- 

Fl-26- 

DB-AS- 

■07-FA 

■C5-FC 

F5-7C 

■07-07- 

■F1-F5 

55-10- 

F5-7A 

A8-47- 

0F-E6- 

F2-1F- 

FF-FF 

78-D3 

00-00 


-6D-20 
2A-20 
7C-D0 
-7E-FE 
18-F5 
24-00 
-D0-06 
-D0-2L 
-16-D0 
-78-Bl 
-18-D0 
-Bl-20 
- 21-00 
-F3-3A 
-11-24 
-D0-C5 
-88-El- 
-C9-F3- 
-C6-00- 
-89-01- 

■-ir-m- 

-61-63- 

-61-74- 

-33-20- 

-4A-2E- 

■6C-64- 

-2D-31- 

•FF-C5- 

■C9-21- 

•30-02- 

A7-F9- 

00 - 00 - 

00-3A- 

§A-42- 

FC-F5- 

40-CD- 

A1-B0- 

4F-06- 

09-77- 

07-07- 

1D-F2- 

E6-03- 

FC-57 

E6-C0 

E6-3F- 

03-57- 

FA-A3- 

2F-6F- 

A8-F1- 

00 - 00 - 


-6E-6F- 
00-CD- 
-FE-D0- 
:-00-28- 
-F3-3A- 
'-CD-E1- 
-06-CD- 
-10-F6- 
-F3-CD- 
-20-F6- 
-CD-7C- 
-F6-2A- 
- 00 - 22 - 
-42-F3- 
-89-21- 
-ED-B0- 
-22-13- 
-21-5E- 
-ED-B0- 
- 00 - 00 - 

-6B-20- 

-6F-72- 

-64-6F- 

-20-76- 

-65-6E- 

-39-38- 

-CD-9F- 

■9A-FD- 

■ED-B0- 

- 21 - 00 - 

■ED-E0- 

■41-F3- 

•F3-26- 

•26-00- 

E2-F9- 

D3-A8- 

00-7D- 

El-79- 

E6-03- 

EC-F9- 

3C-47- 

A3-47- 

4F-F1- 

B1-D3- 

3E-AB- 

57-7B— 

A4-B2— 

E6-03— 

00 - 00 — 


—385 
—22C 
—5BD 
—3F5 
~3D2 
—43A 
-2AC 
-53A 
-4AC 
-430 
-3CA 
-3DE 
-1E6 
-51F 
-236 
-4C2 
-2E6 
-5EF 
46B 
-33C 


-2E2 

-3C7 

-22C 

-27E 

33B 

-1B0 

-4C2 

-586 

-410 

-524 

-lAF 

-4AD 

-443 

-376 

-687 

-711 

-44E 

-512 

-453 

-45F 

-42F 

-451 

-6B6 

-5BF 

-369 

-4B0 

-4C2 

-5FD 

-C9 


MSX-GIDS 


Voor de MSX Gids zijn nu ook opbergmappen 
verkrijgbaar. Deze bewaarbanden zijn 
uiteraard- geel en hebben het MSX-Gids 
logo (in zwarte opdruk) op de voorzijde en 
op de rug. In deze mappen kunnen minstens 
exemplaren van de Gids opgeborgen 
worden. De bladen worden in de map 
vastpzet met speciale (bijgeleverde) 
metalen klemmen. Hierbij wordt het blad 
niet beschadigd! De mappen worden geleverd 
in een bijbehorende verzenddoos en de 
prijs van deze bewaarband is ƒ 19,95 per 
stuk. Deze prijs is inclusief BTW en 
verzendkosten. 

De banden zijn te bestellen door 

stuk op Giro: 
5036011 t.n.v. J.Herps te Amsterdam onder 
vermelding van 'bewaarband'. 

Voor Belgie is dit Bfr. 365 op bankreke¬ 
ning 235-0430464-87 bij de GeSerale Bank 

'^•Herps, Postbus 10252, 
1Ö01 EG Amsterdam onder vermelding van 
'bewaarband'. 
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MSX MACHINETAAL (deel 1) 


Steeds meer ccnpiterbezitters en daardoor ook veel 

gebruik maken van hun 
conputer. Spelletjes spelen is leuk, maar zelf een 
pro^arcM mak^ geeft op den duur meer voldoening dan 
de lughscore in Pacman. Begrijpelijkerwijs begint 
haast iedereen met BASIC als progrartineertaal,^ar 
naakte de programna's groter worden, neetit de 
snelheid van deze prograirata's zienderogen af. Wie al 
TOt lai^er met de ccnpiter bezig is, weet dat de CPU 
(C^tr^ Processing Unit = Centrale bewerkings een- 
^"Ccnpiter, de ZSCHSiip, zelf geen 
woora BASIC kan verstaan. De processor spreekt alleen 
machMetaal, een serie sii^^le opdrachten zoals 
^tell^ en aftrekken. Een stuk machinetaal, de 
'vertaalt tijdens het RUNnen van 
ons BASIC prograimna elke opdracht in een serie 
niachijietaal opdrachten, die dan uitgevoerd word^i Je 
zou je dat als volgt kunnen voorstellen: 

“ Kijk naar de volgende instruktie in de 
BASIC listing. 

~ Vertaal het in een aantal machinetaal 
opdrachten. 

- Voer deze opdrachten uit. 

- Bewaar het resultaat, als dat nodig is. 

- ga weer naar VOLGENDE. 

Itet zoals een BASIC-progranma uit regels bestaat, 
bestaat zo'n regel weer uit opdrachten. Voor de BASIC 
progra^ur is een BASIC-opdracht het kleinste 
ommamo dat aan de ccnpiter kan worden opgedragen. 
Voor de machinetaal programmeur zijn er veel meer 
nog kle^ere~ opdrachten. Een machinetaal opdracht 
is dus eigenlijk het kleinste cccmando dat aan de 
ccnpiter kan worden gegeven. Hieruit blijkt al dat er 
in machinetaal veel meer opdrachten achter elkaar 
moeten worden gegeven om iets voor elkaar te krijgen 
Een opdracht zoals PRTMT'MSX-GIDS" in BASIC, zou in 
MChineta^ veel meer opdrachten kosten. Het gevolg 
hiervan is dat het programna onoverzichtelijker 
wrat. Daa^, dus cm het prograirroa overzichtelijk te 
^ ’^^ere’ programmeertalen ontwikkeld 

zo^s PASCAL, FC*TRAN, CXm en BASIC. Het nadeel van 
zo n programmeertaal is duidelijk: je zit altijd vast 
^ ^ minimum opdracht, je bent niet in staat cm 
die opdracht bijvoorbeeld nog eens in stukjes uit te 
voeren. 


1 - Snel te leren cmdat het aantal opdrachten over- 

zichtelijk en niet te groot is. Iedere opdracht 
IS tot veel in staat. 

2 ~ progranma wordt overzichtelijk cmdat er 

krachtige ccmmando's kunnen worden gebruikt, 
j Als er iets fout gaat, geeft een foutmel ding aan 
waar en wat er mis is. 

4 - ^ prograraneertaal is processor onafhankelijk en 
kan daardoor gemakkelijk op andere ccmputers 
worden overgezet. 


Dij machinetaal kunnen we deze voordelen dus wel 
vergeten, maar we moeten er rekening mee houden dat 
^in machinetaal veel meer mogelijk is en dat alles 
bovOTdien veel sneller gaat. Er zijn dus duidelijk 
voordelen verbonden aan het prograraneren in machi- 
netaal: 


1 - Het gaat allemaal veel sneller. 

2 - We maken efficiënter gebruik van het geheugen 

3 - Het p^^ is korter (in het geheugen). 

4 We zijn niet gebonden aan bestaande series op¬ 
drachten en beperkingen van het besturings¬ 
systeem. 


VOOR WIE IS DIT BEDOELD? 


In de MSX-GIDS heeft enige 
artikelen over het gebruik 
Daarcm beginnen we nu niet 
On deze serie artikelen te 
gende aan: 


tijd geleden al een aantal 
van machinetaal gestaan, 
weer helemaal overnieuw, 
volgen nemen we het vol- 


1- Je h^t zelf al enige kennis van machinetaal. Hoe 
je je dit eigen hebt gemaakt doet niet ter zake, er 
is een groot aantal boeken over dit csiderwerp. Je 
moet onder andere het verschil weten tussen bina ir e 
en hexadecimale getallen. 

2 - Je weet welke assatibler je gaat gebruiken om de 
^rbeelden in te vroren. Als er in de tekst voor¬ 
beelden staan, zul je die zelf pp de één of andere 
manier moeten invoeren, welke assembler je daarvoor 
gebruikt is wet van belang. Wel dat je er een hebt! 
^ serie artikelen is dus eigenlijk voor de 'gevor¬ 
derde beginner'. 


^machinetaal is het dus mogelijk cm alle BASIC 
jachten uit te voeren, maar er kan nog veel meer 
cmdat we een stuk dichter bij de machine staan. Er 
zijn meer machinetaal opdrachten dan BASIC o^achten 
en met meer van deze kleine bouwstenen is het dus ook 
mo geli jk cm een mooier en complexer bouwwerk (pro- 
gramana) te maken dan met weinig grotere. 

Het uitvroren van BASIC programna's kost ook meer 
tijd, cmdat iedere keer een heleboel onnodige 
machinetaal opdrachten worden uitgevoerd die in het 
MSIC cctrmando verstopt zitten om het universeel te 
hoirien. Met de BASIC opdracht *PRINT* moet het name- 
lijk mogelijk zijn cm zowel tekst als getallen of 
uitkomsten van berekeningen af te drukken. Al deze 
mogelijkheden worden dus bekeken als de computer 
PRBTT tegenkomt, terwijl je de PRUTT opdracht mis¬ 
schien alleen maar gebruikte cm een regel over te 
slaan bij je uitvror naar het beeldschem. 

Als voordelen van een hogere programneertaal als 
BASIC kunnen we aandragen: 


WAT IS ASSEMBLY TAAL? 

Go^ beschouwd bestaat een machinetaal opdracht 
alleen uit een bepaald patroon van elektrische 
sipialen in de conputer. Qandat cotputers gebruik 
naken van het binaire (tweetallige) stelsel met bits, 
kunnen we elk signaal opvatt^ als een bit, waardoor 
getallen ontstaan. Als een signaal aanwezig is op een 
van de p^ai van de CPU-chip zouden we dit als '1' 
kimen zien en als er geen signaal is, als een '0'. 
Hierdoor zou een tnachinetaalprogramna alleen bestaan 
Uit een serie getallen en erg weinig mensen zouden zo 
^ staat zijn een machinetaalprogramna te schrijven. 
Wie snapt er nou iets van een programna dat er als 
volgt uitziet: 

01100010 

11110011 

10111111 

10101000 

01010101 

enzovoort.. 




Gelukkig kunnen we voor ieder getal of serie ge¬ 
tallen een naam bedenken. Hierdoor krijgen we de zg. 
assesmbly language (=taal). Dit is niets anders dan 
een vorm v^ madiinetaal die door mensen kan worden 
gelezen. Eigenlijk is assemblytaal dus 'hoger' dan de 
echte machinetaal (=getallen), maar ondat er voor EL¬ 
KE machinetaal opdracht een assönblytaal opdracht is 
kunnen we zeggen dat ze equivalent zijn. fissetnblytaal 
is dus niet zo'n aanpassing als BASIC, maar de CPU 
kan asseiiiblytaal niet lezen. Met behulp van een 
'assembler' kunnen de assanbly-opdrachten wordai 
vertaalt na^ de getallen van machinetaal zonder dat 
de mens er iets mee te maken krijgt. De getallen zijn 
eigenlijk weer elektrische signalen waardoor de CPU 
zijn opdrachten binnenkrijgt. 

Assonblytaal maatt gebruik van 'rmeiKmcs', 
afkortingen. Het zijn stuk voor stuk afkortingen van 
Engelse benamingen voor de opdrachten. dit mottient 
zou een afkorting als: 

INC HL 

misschien weinig zeggen, maar je kunt het tenminste 
lezen. Wie al wat langer bezig is, weet dat INC de 
standaard afkorting is van INCREASE, oftewel verhoog 
of vermeerder. HL is te vergelijken met een variabele 
in BASIC en is de naam van een register in de 
processor. We kunnen het erover eens zijn dat INC HL 
meer betekenis heeft dan: 00100011, de machinetaal 
opdracht, tenzij je de beschikking hebt over een 
grote tabel om alles te zoeken. (Of het leuk vindt 
cm alle getallen uit je hoofd te leroi cm in 'Wedden 
Dat' te komen.) 


HOE WERKT DE CPU? 


Twee nibble's maken dus een byte en vier nibble's 
een woord, omdat twee byte's één woord zijn. De Z80 
kent echter geen nibble-registers. 

Er blijkt dat de Z80 dus maar twee soorten getallen 
kan bewerken, namelijk 8- en 16 bits binaire getal¬ 
len. Het aantal bewerkingen is ook erg beperkt, 
namelijk; 

* 8 bits getallen in een register zetten vanuit een 
géteugaiadres of direkt. 

* 16 bits getallen in een register zetten vanuit 2 
opvolgende adressen of direkt. 

* optellen, aftrekken, ophogen, verlagen en ver¬ 

gelijken van 8 bits getallen 

* optellen, aftrekken, cphogen, verlagen en ver¬ 

gelijken van 16 bits getallen 

* een aantal manipulaties met 8- bits getallen, zoals 
het getal negatief maken. 

* een getal wegschrijven uit een register naar een 
geheugenadres. Een 16 bits getal komt dan in twee 
gdieugenadressen te staan, omdat elk adres ruimte 
biedt aan een 8 bits getal. Het 16 bits getal wordt 
hierbij gesplitst in twee t^e's. 

* door het prograitma springen naar 'n andere plaats. 
Eventueel onder bepaalde voorwaarden. 

* communiceren roet de buitenwereld met 8- bits 
getallen. 

Dit lijkt maar erg weinig, maar toch is het met dit 
scala aan opdrachten mogelijk cm de ccmputer bij¬ 
voorbeeld te laten schaken... of Pacman te laten 
spelen1 Je ziet dat zelfs een sinpele instruktie als 
vermenigviHdigen niet eens voorhanden is. Dat bete¬ 
kent dat je hiervoor een progranmaatje moet schrij¬ 
ven. Hierdoor wordt nog eens onderstreept dat je in 
madiinetaal alles in kleine stapjes moet doen. 


We kunnen ons de CPU met wat fantasie voorstellen als 
een klein zwart kastje midden in onze ccmputer die 
konstant bezig is opdrachten uit te voeren. Maar 
voorfat we precies weten welke opdrachten de CPU be¬ 
grijpt Ipmnen we de processor nog geen grotere taken 
laten i^tvoeren zoals bijvoorbeeld het narekenen van 
cais huishoudboekje. Bij het uitvoeren van de op¬ 
drachten maakt de CPU gebniik van 'rasters'. Een 
register is het beste voor te stellen als een bakje 
met ^ aantal vakjes. Zo'n vakje is gevuld met een 
blokje als het bit (=binairy digit) in het register 
'geset', dus '1' is. Het binaire getal 01011001 kun 
je je dus voorstellen zoals hieronder is getekend: 




In de Z80 CPU komen twee soorten registers voor: 16- 
en 8 bits registers. Met de 8 bits registers kan de 
processor van 0 tot 255 tellen; er zijn dus 256 
toestanden (=2 tot de macht 8). Een achtbits binair 
getal noemen we ook wel een 'byte'. Met de 16 bits 
registers kan tot 2 tot de macht 16, dat is 65535 
worden geteld. Een 16 bits getal noemen we een 
'woord'. SctiB is het ook handig om over 4 bits 
getallen te beschikken, die noemen we een 'nibble'. 


Hieronder zijn de belangrijkste registers van de Z80 
nog eens getekend. Binnenin de processor zitten nog 
meer andere registers, maar die zijn voor ons nog 
niet van belang. 



Met de twee bovenste registers (I en R) kan niet 
gerekend worden, ze vallen niet aider de zg. 
’user-registers'. Voor de overzichtelijkheid zijn een 
paar redsters weggelaten, één van die registers is 
PC. rc is de 16 bits programoounter, het getal dat 
hierin staat geeft aan uit welk adres de volgende 
opdracht van het programma moet worden gehaald. 
Springoi in het progranma kan simpel gebeuren door 'n 
bepaalde waarde bij de programcounter op te tellen of 
ervan af te trekken. Als het progranma normaal wordt 
uitgevoerd, wordt er na het biimenhalen (in de (3>U) 
van een machinetaalgetal steeds 1 bij de PC opgeteld, 
zakt PC al naar de volgende uit te voeren opdracht 
wijst. PC wijst dus in feite een adres aan, daarom 
wordt hij ook een pointer {=wijzer) genoemd. 
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De 16 bits 'stackpointer', SP register, houdt bij 

wa^ het laatste getal op de stack (stapel) in het 
geheugen staat. Hier kom ik in de toekomst op terug. 

Ifet 8 bits R raster is voor de gebruiker van weinig 
Het IS het refresh register dat te maken 
heeft met de (^namische RAM (=het geheugen) Het I 
redster is het interupt register. Als de processor 
^erbroken (=interupted) wordt tijdens zijn werk zal 
dit 8 bits getal, samen met de 8 laagste bits van de 
adresbus een adres opleveren waar de CPU heen springt 
cm een bepaalde taak uit te voeren (meestal het scan¬ 
nen van het toetsenbord). Voor de beginnende madiine- 
tM^ograraneur zijn het I en R register niet van 


Van de registers A,F,B,C,D,E,H en L bestaan ook nog 
cdtematieve’ registers. Dat betekent dat deze 8 
bits registers eige^ijk gewoon nóg een keer in de 
CPU zitten. Elk register heeft dus een broertje met 
dezelfde naam en daarom geven we de alternatieve re- 
gisters aan n^t de naam van het register, 
o» onderscheid te kunnen maken laten we naam volgen 
door een '. Dus bijvoorbeeld A' of F'. Verder kunnen 
we de setjes BC,DE en HL ook gebruiken als 16 bits 
registers. Als we HL als 16 bits register gébruiken 
zullai de lage 8 bits van het 16 bits getal in L 
staan en de hoge 8 bits in H. Dit is gonakkelijk te 
onthouden: H is de eerste letter van Hoog en L is de 
eerste letter v^ Laag. In de andere 'dubbele’ regis¬ 
ters, zoals DE is het net zo. Dus de hoge bits in D, 
de lage bits in E. 


F is een bijzonder register: het vlag-register. Ook 
hier kom ik later nog op terug. De alternatieve 
registers (zoals A’,B',H’ etc.) zijn eigenlijk extra 
bakies. We kunnen er niet direkt in werken. Als we de 
CPU e^ bepaalde opdracht (EXX) geven, kunnen we ze 
gebruiken in plaats van de huidige registers met de¬ 
zelfde naam. De laatste waarde die erin stond blijft 
bewaard tot we ze weer aanspreken. Met de opdracht 
EXX verwisselen we alle registersetjes. Met EX AF,AF' 
verwisselen we alleen AF met AF', de andere blijven 
caigewijzigd. 


REKENEN MET REGISTERS? 

Nu we weten dat er in de CPU (=Z80) dus registers 
zitten, waarmee alle opdrachten uitgevoerd worden, 
blijft de vraag hoe dat dan in zijn werk gaat. Daarom 
zal nu aan de hand van een voorbeeld duidelijk worden 
gemaakt hoe het samenspel tussen prograiiroa, géheu- 
genadressen en registers is. 

Het optellen en aftrekken van getallen doet de CPU 
met l^ulp van zijn ALU (Arithmetic Logical IMt). 
Dit is voor te stellen als een apart doosje in de CPU 
met twee luikjes aan de ene kant en één luikje aan de 
andere kmt. Door de twee luikjes geeft de processor 
twee bakjes met getallen aan en zegt erbij wat ermee 
moet gebeuren, bijvoorbeeld 'optellen maar', of 'trek 
dit even van elkaar af, wil je'. Even later schuift 
het luikje aan de andere kant van de ALU open en 
wordt er een nieuw bakje uitgegooid. Het getal in dit 
b^je is het resultaat van de rekenkundige bewerking 
die op de twee getallen is uitgevoerd. De CPU pakt 
tevreden het bakje op en gaat er verder mee aan de 
slag, bijvoorbeeld door het in een geheugenadres op 
te slaan. 



EEN SOMMETJE 

Alfred heeft voor zes gulden boodschappen gedaan. Hij 
komt bij de kassa en betaalt net een biljet van tien 
gulden. Hoeveel gulden krijgt Alfred terug van de 
cassière? 

Wees gerust, ik verkeer niet in de veronderstelling 
dat er op het ogenblik lezers zullen zijn, die het 
antwoord nog niet hebben, maar latai we dit eens in 
machinetaal oplossen. Als we logisch nadenken en de¬ 
zelfde weg volgen die we vroeger in BASIC volgden 
komen we al een heel eind. 



On te beginnen hebben we variabelen nodig. Variabelen 
zien er in machinetaal iets anders uit dan in BASIC. 
We nemen gewoon voor iedere variabele die we nodig 
hebben een g^eugenadres. De machinetaalopdrachten 
kunnen namelijk heel goed getallen uit adressen ha¬ 
len, bewaken en weer terug zetten. Omdat de getallen 
waar we in dit voorbeeld mee gaan werken klein zijn 
(lager dan 256) Icunnen we met 8 bits getallen toe, 
dus één geheugoïadres per variabele. Een geheugen¬ 
adres biedt namelijk plaats aan één 8 bits getal. Als 
de getallen groter waren hadden we twee (of misschien 
nog meer) adressen samen moeten nonen tot één groter 
getal. Dit had het rekenen natuurlijk wel beüoei- 
lijkt. 


De variabelen noemoi we gewocai adresl, adres2 en 
adres3. Iedereen klaar? Daar gaan we: 

IJD (adresl),6 

LD (adres2),10 


39 









De afkorting LD staat voor LQAD, oftewel 'vul'. De 
haakjes leest de machinetaalprogrammeur als 'de 
iitod van'. En een karna betekent 'met', flls we hier 
^lonaal rekening mee houden, staat er dus; Vul de 
inhoud van adresl met 6 en vul de inhoud van adres2 
met 10. Hierm^ zijn de twee 'invoer' parameters 
(variabelen) in hun geheugenadressen gezet. Laten we 
wat gaan rekenen; 

LD A,{adres2) 

SUB A,(adresl) 

Dus, vul A {=register A) met de inhoud van adres2, 
dus met 10. Met deze opdracht hebben we het getal 10 
in register A van de CPU gezet. We hadden ook direkt 
LD A,10 kunnen doen, maar we houden het op deze 
manier universeel. We kunnen door de twee eerste 
opdrachten te wijzigen het programma dan een som met 
andere waarden laten uitrekenen. SUB is de afkorting 
van SUBTRACTT, aftrelcken dus. We lezen voor de tweede 
opdracht dan ook; Verminder A met de inhoud van 
adres2. Op deze manier trekken we 6 van 10 af, omdat 
in het A register het getal 10 staat opgeslagen en in 
adresl het getal 6 staat. Het resultaat van deze 
bewerking (4 dus) wordt weer in het A register opge- 
slag^. Na het uitvoeren van de SUB opdracht staat er 
dus 4 in het A register. Om het af te maken doen we 
nog even; 

LD (adresl),A 

RBT 

Vul de inhoud van adresl met A. De uitvoer is hiermee 
in een geheugenadres terechtgekonen, zodat we het 
bijvoorbeeld vanuit BASIC kunnen gebruiken met; 

PRINT PEEK(adresl) 

De laatste opdracht van de machinetaal is ook erg be¬ 
langrijk. RCT staat voor RETURN, oftewel 'keer 
terug'. Dit is een zeer belangrijke opdracht. Als we 
RET vergeten ^ het bovenstaande machLietaalpro- 
gramnaatje vanuit BASIC aanroepen, zal de conputer 
niet meer terugkeren naar BASIC en op tilt slaan. 

In het voorbeeld zijn opdrachten gebruikt die in 
machinetaal niet voorkomen. Zo is het niet mogelijk 
cm de opdracht LD (adresl),10 in één keer te geven. 
Dit moet zelfs nog in twee stapjes uitgevoerd worden, 
nl.: 

LD A,10 

LD (adresl),A 

Ik denk echter dat op de bovenstaande manier iets 
siBpeler te begrijpen was, maar vanaf nu gebruiken we 
alleen nog maar geldige mnemonics. 

We hebben in het tovenstaande voorbeeld gebruik 
gemaakt van het A register cm het verschil van de 
twee getallen uit te rekenen. Dit is natuurlijk ook 
met andere registers, zoals het C register, mogelijk. 
Toch is het aan te raden zoveel mogelijk met het A 
register te doen, andat dit het favoriete register 
van de CPU is. Sotmige opdrachten kunnen alleen met 
het A register worden uitgevoerd. De CPU heeft ook 
een favoriet 16 bits register; het HL register. 

lil de praktijk hebben we natuvurlijk te maken met veel 
ingewikkelder berekeningen als in het bovenstaande 
voorbeeld. We zullen dan ook tussentijds getallen 
moeten bewaren en verderop in de berekening weer moe¬ 
ten gebruiken. Zulke getallen noemen we dan ook 
'tussenresultaten'. Een goede methode is de tussen¬ 


resultaten in de processor te laten, door ze in re¬ 
peters op te slaan. Stel dat we van het eindresul¬ 
taat van het supermarktprobleem nog een keer het 
get^ 2 willen aftrekken en er daarna 13 bij op 
wiiiöi tellen. We zouden als volgt te werk kunnen 
gaan; 


STfiRT LD A,6 

LD (adres2),A 
LD A,10 
LD (adresl),A 
LD B,2 
LD C,13 
LD HL,adres2 
SUB (HL) 

SUB B 
ADD A,C 
LD (adres3),A 


zet 6 in A-register 
zet dit op adres2 
zet 10 in A-register 
zet dit op adresl 
zet 2 in B-register 
zet 13 in C-register 
HL-reg.= adres2 
trek van A-reg de 
inhoud van adres2 af 
trek B (=2) van A af 
tel C (=13) bij A op 
bewaar het resultaat 


De eerste 7 opdrachten zouden we tot de initialisatie 
kunnen rekaien. Hiermee worden alle registers en 
geheugenplaatsen gevuld met de invoerwaarden voor de 
berekening. De SUB- en ADD-opdrachten voeren de ei¬ 
genlijke som uit en de laatste opdracht (op RET na) 
zcarp ervoor dat we het eindresultaat beschikbaar 
hebben. 

We gebnuken voor het eerst het HL register 
-eigenlijk de losse 8 bits registers H en L- als 16 
bits adrespointer. HL wijst als het ware het adres 
aan; daarom noemen we ham 'pointer'. Stel dat het 
adres &fK334 is, HL bevat dan het 16 bits getal 
S}034. Het is aan de machinetaalprograirmeur of dit 
een adres of een getal voorstelt. 

Na de derde opdracht blijft A nog steeds het getal 10 
bevatten, dus mogen we verderop SUB (HL) zetten 
Hierdoor wordt van A (=10) het getal in het 
geheugenadres dat door HL wordt aangewezen (=6) 
afgetrokken. 

Het valt misschi^ op dat bij de SUB opdrachten het 
register A ^et in de opdracht (mnancaiic) genoemd 
wordt, terwijl deze ccttitiando's juist voor dit regis¬ 
ter zijn bedoeld. Misschien herinner je je dat het A 
register het favoriete register van de CHJ is? Om 
deze reden is het niet nodig cm dit in de instruktie 
te noemen andat de SUB opdracht (voor 8 bits 
getallen) alleen met het A register mogelijk is. 

Uit het besproken stukje machinetaal blijkt dat ik 
voor het opslaan van sotnmige invoerwaarden (10 en 6) 
geheugenadressen heb gebruikt, terwijl ik de getallen 
2 en 13 in registers heb opgeslagen. Ik heb deze 
keuze gemaakt omdat ik snel de uitkomst van de som 
wilde weten en omdat ik ervan uitging dat het 
prograranaatje maar één keer wordt gebruikt. Als het 
stukje ^ universele subroutine in een groter pro- 
granma is opgenomen en iedere keer met verschillende 
invoerwaard^ moet kunnen werken, is het natuurlijk 
niet mogelijk cm de getallen in de subroutine in re¬ 
gisters te zetten. Dit moet dan in het hoofdprograirma 
gebeuren, voor het aanroepen van de subroutine. Het 
doorgeven van deze parameters kan natuurlijk ook in 
adress^ gebeuren en hieruit blijkt al dat we twee 
mogelijkheden hebben. De beste is waarschijnlijk het 
doorgeven met behulp van registers, omdat het mi nd P r 
werk IS voor de CPU (en dus minder tijd kost) cm een 
wa^e in een register op te slaan dan in een 
geheugenadres. 


ARNOUD 
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TIMETRAX 


Net als de vorige keer met Star Quake opnieuw zo'n 
verrassend spl voor een superlage prijs. Ook deze 
c^sette belooft op het eerste gezicht niets 
bijz^ers, maar tijdens het spelen kom je erachter, 
dat het hier gaat cm een behoorlijk ingewikkelc 
advpture. Opvallend is meteen al de muziek, die 
doet denken aan spell^ "Lazy Jones". Zoiets 
noor 3G aG laatste tijd niet vaak ineer. 



Er wordt gewerkt met twee schermen: het bovenste be¬ 
vat de tijdzcsies, die je moet doorzoeken en het on¬ 
derste geeft via diverse displays de speelmogelijk¬ 
heden. Ccnmando's worden gegeven door middel van een 
menu, dat 2 rijen opties bevat. Door FLIP te geven, 
kan van het ene optisnenu naar het andere worden 
gegaan. 

Het verhaal is als volgt: er is net een kernoorlog 
geweest en de "Evil One" heeft de 8 "Minds" van hun 
bezittingen b^oofd. Op hun speurtochten hebben deze 
"Minds" de "Time Portals" geopend, waardoor de "Dark 
Ones" kunnen ontsnappen. Jouw taak is het de 8 hun 
bezittingen terug te geven en bovendien de "Time 
Portals" te sluiten door 4 tegels in de juiste volg¬ 
orde te leggen. En reken maar, dat het een hele klus 
is. Er zijn 9 tijdzones, die je echt goed moet 
c«iderzo^en: eerst LOOC geven in het menu, dan TAKE 
als er iets ligt en vervolgens met EXIT weer terug 
n^ het spel. Bij elk speelveld kun je eerst een 
tijdje ondergehinderd rondlopen, waarna de eerste 
"Dark One" verschijnt, die het uiteraard op je 
energie heeft voorzien. Deze zijn te ontlopen door 
zo snel mogelijk een deur door te gaan of door ze 
neer te schieten, maar dan moet je een wapen en de 
daarbij behorende munitie hebben. 

Een wapen kun je gebruiken door via FLIP naar het 
tweede optiemenu te gaan, dan SWAP te geven, met de 
cursor op het wapen gaan staan, de spatiebalk of 
vuurkncp in te dnikken ai vervolgens met FLIP en 
EXIT weer ten^ naar het speelveld. Doe dit niet als 
er een geest in het veld rojidspookt, want dan ben je 
meteen "Well Dead" en score je waarschijnlijk als 
"Pudding". 



Na enige tijd verschijnt er nog een geest en dan is 
het zaak weg te wezai, want deze is niet te ver¬ 
slaan. 


iiu.uut;± vcui ae tegeis, _ 

d^ zijn kun je i»k "Spells" uitspreken. Daarvoor 
zijn 2 tegels nodig met een bepaald plaatje en om te 






wet^ welke tegels dit zijn kun je een "Scroll" ge¬ 
bruiken. Deze aktiveer je net als de wapens en dan 
verschijnen in het 'Visual Display" de 2 tegels, die 
je nodig h^t. Heb je die niet, dan moet je ze zien 
te vinden in de tijdzones of zien te ruilen met de 8 
"Minds". Op het flapje van de cassette staat een 
uitgebreide handleiding, maar je moet toch wel 
enkele keren ge- speeld hebben cm precies de 
bedoeling van het spel door te krijgen. TMETOAX is 
een titel van Bug ^e, leverbaar op cassette en 
kost ƒ 15,-. 
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GAUNTLET 

Eindelijk kwam het langvervfachte spel dan binnen en 
dl.... wat een teleurstelling: laden tot het bandje 
bijna smolt en nog lukte het maar twee keer het spel 
tevoorschijn te toveren. Veel kan ik er dus niet 
over zeggen, behalve dat het eai razendsnel arcade- 
adventure is met de keus uit verschillende vech¬ 
tersbazen: krijger, elf, tovenaar en valkyrie en het 
aardige ervan is, dat je het ook gelijktijdig roet 
z'n tweeën kunt spelen. De bedoeling is, dat je zo¬ 
veel Hogelijk monsters doodt roet als haltepunt 
"Death", die je alleen met magie onver krijgt. Je 
begint roet een beperkt aantal healthpunten, die je 
moet zien cp te voeren door het eten van voedsel en 
het verzamelen van flessen, waarin een magische 
drank zit. Maar kijk uit, want je kunt ook vergif¬ 
tigd eten of drinken te pakken krijgai en dan gaan 
die punten eraf. Ook je strijdkracht is aanvankelijk 
niet veel waard en daarvoor moet je eveneens 
bepaalde dingen oppakken. Dit staat allemaal uitge¬ 
breid in de handleiding beschreven roet afbeeldingen, 
alleen is het probleem, dat het tempo zo moordend 
is, ^t je nauwelijks de kans krijgt om te zien wat 
wat is. Zeer vaak spelen dus cm het spel goed onder 
de knie te krijgen... 

Over enige tijd is er een uitbreiding van Gauntlet 
te verwachten, want in de handleiding zijn wenken 
opgencmen voor mensen, die zelf speelvelden bij 
willen maken. Deze kunnen ingestuurd worden naar de 
fabrikant en de beste worden dan op die uitbrei- 
dingscassette verzameld en te koop aangeboden. 

Gauntlet wordt uitgebracht door U.S.Gold, onder 
licentie, want de cororights liggen bij Atari, 
hetgeen een uitstekende kwaliteit garandeert. 

Het spel is verkrijgbaar op cassette en kost ƒ 39,— 
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DE ERFENIS 

Verrassing van Ariolasoft: een nederlandstalig 
adventure, dat bovendien verkrijgbaar is qp disk! 
Voor de liefhebbers is de engelstalige versie ook op 
de markt onder de titel "Inheritance",(Cas. ƒ 45,-) 



De Erfenis is een ccmbinatie van adventure en 
behendigheidsspel. Een tante laat haar neef een 
erfenis na, maar stelt als voorwaarde, dat hij deze 
pas krij^, als hij binnen één nacht 1 miljoen 
dollar wint in Las Vegas. 

Die neef (of nicht) ben je zelf uiteraard en het is 
dus zaak zo snel mogelijk in het gokkersparadijs 
terecht te kernen. Maar dat is zo makkelijk nog niet. 
Deel 1 begint in je flat op de 17e verdieping van 
een gebouw, waar je op elke etage een schuldeiser 
tegen kunt komen, die -mits je hem/ haar teruggeeft, 
wat je geleend hebt- je verhinderd naar beneden te 
gaan, waar de taxi, die je naar het vliegveld moet 
brengen, staat te wachten. In de flat moet je met 
behulp van de cursortoetsen je tas inpakken, waarbij 
je enkele dingen vellicht mee moet nonen. Vergeet 
ook het schaaltje niet, want daarop liggen de 200 
dollar, die je hard nodig hebt. 

Als het je lukt de trap af te kernen en de taxi te 
bereiken, krijg je een code op, waarmee je meteen 
door kunt naar deel 2: het vliegveld. De code 
noteren, want dan hoef je bij een volgende keer 
spelen niet opnieuw door het flatgebouw te rennen. 
Hou op het vliegveld je paspoort in de gaten, anders 
beland je in het gevang. Eén van de personages kan 
het je teruggeven. Vergeet ook niet de juiste krant 
te kopen, want die heb je in het vliegtuig nodig. 

In deel 3 verandert het spel, want dan is het gokken 
geblazen cm het vereiste miljoen bij elkaar te krij¬ 
gen. De snelste manier is ook de meest lugubere en 
k^ iMgal dodelijk voor je aflopen. De leukste ma¬ 
nier is de fruitmachine, maar dan heb je wel enkele 
dagen nodig, want veel wordt er niet uitbetaald. Dan 
zijn er nog "Craps”, een dobbelspel, waarmee veel 
gewonnen kan worden, maar waarbij je kansen nogal 
klein zijn en "La Boule", dat meer mogelijkheden 
biedt, maar dan wel roet de maximuminzet. Als je 
helemaal blut bent, kun je nog even een bezoek 
brengen aan de bar, waar je een oude vriendin 
ontmoet of naar de bank van lening gaan, waar je nog 
wel wat krijgt voor de spullen in je tas. Meer tips 
geef ik niet, anders wordt het te eenvoudig. Kom je 
er toch niet uit, dan kun je altijd even bellen 
(020- 327464 van 12.00 tot 17.00 uur), want ik heb 
m'n miljoentje al binnen. 

De Erfenis kost op cassette ƒ 59,— en de diskversie 
moet ƒ 69,— opbrengen. Dit zijn de adviesprijzen 
van Ariolasoft, dus het is best mogelijk, dat ze bij 
de softwareleveranciers minder kosten. 
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TIPS 

Dat de adventurerubriek een behoorlijke populariteit 
geniet, bleek o.a. uit de uitslag van de enquete en 
uit de brieven en telefonische reakties, die hier 
binnen kcoten. Prima zoi We houden cxis aanbevol^. 

Van Sincn I^jnenburg ontvingen we wat tips voor The 
tobbit. Hij zit echter zelf met een probleem en dat 
IS, dat scomige plaatsen in dit adventure het 
spel blijft hangen en op geen enkele wijze weer kan 
worden opgestart, zodat hij dan opnieuw moet begin¬ 
ne. Wie weet hier eai goede oplossing voor? 
Misschien één of ^ere PCKE? (Sraag sturen naar de 
redaktie van de Gids t.a.v. Jocelyn, dan kunnen we 
er wellicht ook nog andere adventurers een plezier 
mee doen. 

De tips zijn als volgt: 

- Zorg (kt je gevangen wordt door de Boself. (Dit 
kan bij de Glooray Eiiipty Place surrourded by Chick 
Trees). Deze Boself ne«nt je mee naar een kerker, 
die -na een tijdje wachten- weer wordt geopend 
door de Butler. Deze Butler kun je vermoorden, 
waarna je een vat (The B^el) kunt pakken. Open 
dan The Trap Door en gooi het vat hierd(X)r (THROW 
BARREL raROüOT nyff DOOR). Wanneer je dan op (3it 
vat springt, wordt je door de stroming van de 
rivier meegeiKiDen en k(an je in een Meer terecht, 
vlakbij het sta<ije Lcaig Lake. Vanaf dit stadje is 
het erg makkelijk <an de draak te (Uitmoeten en te 
doden. 

- Ga via de Irsnelands niet naar The Trolls Clearing, 
maar loop door naar het Trollen pad. Als je hier 
The Heavy Rock Door openbreekt, kcm je in The 
Trolls Cave. Hier liggen een zwaard en een touw. 
Geef het zwaard aan Gandalf en zeg hem, dat hij de 
trollen ermee moet doden. 

- Geef de kaart (Curious Map) aan Eirond. Deze leest 
de kaart voor je en vertelt je hoe je moet lopen. 

SiiKpn heeft ^ ruil voor deze tips ook nog een tip 
ntxiig: als hij door een goblin gevangen genomen 
wordt, neemt deze hoti mee naar een Goblins Kerker, 
w^ hij absoluut niet uit kan komen. Wie heeft 
hiervcxar de oplossing? 

B^ankt Simoo en wie weet lees je in de volgende 
Gids de oplossingen voor je problanen. 

Harry Schiffelers heeft weinig problemen met het 
oplossen van adventures en van hem kregen we weer 
een hele berg tips binnen. 

Lords of Time (2) 


1. Geef de androide in het Intergalactisidie Wis¬ 
selkantoor de zilveren munt. 

2. Ik zou een gevallen ster maar niet zonder hand¬ 
schoenen oppakken. 

3. Een gevallen ster opent deuren, die anders geslo¬ 
ten zouden blijven. 

4. Werp de matras over de rand van de krater. Je 
kunt nu naar beneden zender je botten te breken. 
Gebri^ de matras ook in het trc^ische zwembad. 

5. Vernietig de nabot in de schermzaal met het 
li(ditzwaard. Open de robot m.b.v. de kleine 
schroevendraaier uit de robot reparatiezaak. 
Gébruik de nabijn als vergrootglas. 

6. De gladiator met de grijpgrage handjes vlucht 
naar het amfitheater. 


7. In de tengel bdwar je knielend te bidden. 

8. tetrerf het amfitheater gp gevleugeld schoeisel. 

y. de wapoas uit de Spartaanse kazerne naar de 

leeuw in de arena. 

10. Laat de flinke gladiator met rust. 

11. Heb je in de "Mortijd de hoorn gevuld met het 
kra(±twater uit de kleine bron? Hopelijk wel, 
j^t je moet het drinken om de rooster in de hete 
baden los te kunnen rukken. Vul daarna de hoorn 
met badwater. 

12. Ga in het hypocaustum z,w,w,z 

13. Laat in de verre toekomst de middeleeuwse mijl- 
st^ voor de gehavende erepoort vallen. 

14. Blijf in het Verwoeste Land niet te lang op één 
plaats, anders kost het je je leven. 

de mensen en dieren in de laboratoria. 

16. Ga vanaf de bodem van de diepe lemen put w,z en 
gra^ de fles uit. 

17. G(x>i de fles stuk op de wortels van de reuzen- 
plant. 

18. Draag de mantel om de Timelords te kunnen pas¬ 
seren. 

19. Gooi de 9 ingrediënten in de ketel. 

TIJDZeWES DKREDIEWnw 

l.ifeden traan van wilg 

2.Ijstijd slagtand 

3. Prehistorie dinosaurus-ei 

4. V:iJdngtijd olijftak 

5. Middeleeuwen drakevleugel 

6. Tudortijd narrekap 

7. Toekomst siliccxi-chip 

S.Rom.tijd gesp 

9.Verre toek. dexs 

The Vera Cniz Affair 


A. IHE PC»EST RESIDENCE 

1. Maak van alles op de plaats van het misdrijf een 
foto. Zie niets over het hoofd. 

2. Maak van de agenda twee foto's. 

B. THE STATE POJCE FC»CE 

3. (kiderwerp het lichaam van Vera Cruz aan een au¬ 
topsie. 

4. Laat grafologen de hantJschriften van de agenda en 
de afscheidsbrief onderzoeken 

5. Maak na een verhoor steeds gebruik van de C(CM- 
PARISiSI) optie <xn gegevens, die een ondervraging 
heeft cpgeleverd, te vergelijken met eerdere ver¬ 
horen of met ander bewijsmateriaal (b.v. 
CCWPARISCW- znxaffi) 

6. Vraag aan CRRJ LYCW informatie over personen en 
vcx>rwerpen, die je tijdens je onderzoek te¬ 
genkomt. 

7. Het kenteken van de BMW die bij enkele misdrijven 
werd gezien, is 9111 -<:q-69. 

8. De ixiipiter herkent ook enkele bijnamen 

9. De volgende perscxien zijn van belang: 

a) SIMCNE DüHjAT,Forest,St.Etienne 

b) NESTt^ MARTIN,Forest,St.Etienne 

c) NADINE LAFEIJILLE,2 Balay Street,St.Etienne 

d) EVA lHjARUE,Transport Café,Givors 

e) ABDOULAH HOCINE,Bar of Poplars 

f) P HTT i TBER T ZIECHjE 3^,5 Camot Sq.,St.Etienne 

g) HUBERT DELROCHE,Pe(^le Sq.,St.Etienne 

h) GULEIS BLANC,2 Station Str.,St.Etienne 


SCHATTEN 

zandloper, roetron(xm, 
kist, magneet 
kandelaar 

pot, beeldje, wiel 
koffer 

hoorn,luit,kroon, 
<»sters tapijt 
ster,smaragd,flesje, 
robijn 

mantel 
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i) STANISLAS KDWMjSKI,310 bis cours E.Zola, 
Villeurbanne 

j) PHHiIPre BIjANC, 32 Terreaux .,Lycai 
lO.Verzaïtiel informatie over de inbraak bij juwelier 

Delroche en de diefstal van het pistool MAC50. 
(Mervraag daarna Ziegler, Kowalski en de gebroe¬ 
ders Blanc opiieuw. 

11-Arresteer de moordenaar. 

Bi daarmee is het welletjes geweest wat de 
adventurerubriek betreft, anders houden we geen 
ruiitite meer over voor de rest van de software en dat 
is nogal wat dit keer. Ik ga me intussen bezighouden 
met het nieuwste Level 9 produkt "The Archers", 
waarin je de rol moet spelen van scenarioschrijver 
van de BBC en de luistercijfers van het langst- 
lopende hoorspel van "Auntie" op peil moet zien te 
houden. Klinkt origineel en wie het ook vast wil 
proberen, kan de cassette aanschaffen voor ƒ 35,—. 

Tot de volgende keer.JOCELYN 



De afgelopen maanden is er een enorm aantal nieuwe 
spellen op de markt gekomen, waarbij één ding op¬ 
valt: in v^l gevallen is matigheid troef. Ik zal 
daarcm beginnen met een korte beschrijving van de 
spellen, die je volgens ons beter niet kunt kopen 
onder de verzameltitel: 

MATIG TOT SLECHT 

WIMTERGAMES, Ariolasoft, Cassette. ƒ 39,— 

Olympische Winterspelen 1988. Kunstschaatsen, bob¬ 
sleeën enz. met knullige grajAiics, valse muziek en 
zeer trage bewegingen. 

FOTJRE KNIQfT, Gromlin, Cassette. ƒ 39,90 

Doorzoek de galactic cruiser SS Rustbucket op zoek 
naar schone dame. Er is niets aan de hand met je 
joystick, de bediening is gewoon uiterst moeizaam in 
dit spel. 

SOUL (F A RC®Or, Mastertrcmc, Cassette, ƒ 10,— 
Hetzelfde geldt voor dit spel: help het robotje en 
bevrijd de planeet. De ^aphics zijn wel fraai, maar 
ook dit speelt erg moeizaam. Maar ja, voor zo'n 
prijsje. 

SPY VS. SPY, Databyte, Cassette. ƒ 39,— 

Twee spionnen op een eiland op zoek naar gdneime ra¬ 
ket (3 blauwe vlekjes). Ontsnap voordat vulkaan 
uitbarst met onderzeeër. Graphics aardig (HAD 
strip?). 

PICO PICO, Micro Cabin, Cassette. ƒ 29,90. 

Bouw een burcht voor een vrouwe in nood met kleu¬ 
ter blokjes. Een tientje zou nog te duur zijn. 

PCÏjAR star. Micro Cabin, Cassette. ƒ 29,90. 

Al eerder verschenen van Toshiba voor een tientje en 
meer is dit schietspelletje ook niet waard. 
VIDEOKKER, Mastertrcnic,Cassette. ƒ 10,— 

De prijs is het enige argument in het voordeel van 
dit kaartspel. Verder is het erg traag en zijn de 
kaarten niet eens in kleur. 


Gelukkig zat er bij de ons ter resencie aangeboden 
software ook nog wel wat anders dan de hierboven 
beschreven ellende en één van de toppers is het 
aloude: 

DONKEY KONG 

Ocean, cassette. Prijs ƒ 36,— 

Eén van de oudste arcadegames (Nintendo 1981) en 
tevens één der populairste. Waarsdiijnlijk is dit 
het eerste klim- en klauterspel, dat ooit uitge¬ 
bracht is en het blijft één van de beste. Rong heeft 
een meisje ontvoerd en staat bovenaan een trap met 
vaten te gooien. Bevrijder (jij) staat helenaal 
onderaan en moet over de vaten heenspringen om boven 
te konen. Met een hamertje kunnen de vaten 
stukgeslagen worden, maar dan kun je niet 
kliranen.... 



Beeld* « * « * 

Geluid* * * * 

Spelkwaliteit* « * « * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * « * 

zeer goed 

GOED 

REDELIJK 

♦ * MATIG 

♦ SLECHT 

STAR FIGHTER 

Bytebusters, cassette. Prijs ƒ 34,90 
Schietspel waarbij je je een weg moet banen door 
meteorietr^ens om vervolgens een vijandelijke basis 
te vernietigen en dan moet je nog zien te ontsnappen 
ook. Voor de liefhebbers van dit genre een zeer re¬ 
delijk spel met behoorlijke graphics en geluids- 
effekten. Het enige bezwaar van onze kant is de -te 
hoge- prijs. 


Beeld**** 

Geluid **** 
Spellfwaliteit **** 
Dokumentatie **** 
Prijs * 
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BATMAN 


Oc^, cas^tte. Prijs ƒ 36,—. 

^^imensionaal spel in de stijl van Alien 8 
Khightlore, Gunfright etc. Zeer verzorgde uitvSrinó 
^t ha^eiding in 3 talen (Firans, Duits, Engels). 

IS gevangen genomen door de Joker en de 
Ridd^ en cm hem te bevrijden moet Batman de 
onderdel^ van de Batcraft zoeken, het voertuig in 

SSSgehinderd door de 
vijanden. Hulp wordt geboden in de vorm van extra 

levens, ^ra power etc. Het spel is voorzien van 'n 
uitgebreid keuz^u, waarmee de cursortoetsen, 
resp. de joystick geprogramooeerd kunnen worden' 
muziek gesteld kan worden en de moeilijkheidsgraad 
kan worden ingesteld. De bediening is zeer soepel, 
zelfs met de cursors. 

Beeld *** 

Geluid *** 

Spelkwaliteit **** 

Dokuiaentatie **** 

Prijs *** 


HAPPY FRET 

Micro Cabin, cassette. Prijs ƒ 34,90 
Aardig klim- en klauterspelletje, zij het wat aan de 
uure kant. Op jacht naar de schat door het Laby- 
r^th, gere^dmp verzamelen en vaitpiers, c.q. 
slangen van je lijf houden. De bediening gaat nogal 
moeizaam en het spel zal aardig wat tijd vergen cm 
het goed onder de knie te krijgen. 


Beeld *** 

Geluid ** 
SpeDcwaliteit *** 
Dokumentatie **** 
Prijs * 


SNOOKER 

"Professional Snooker Simulator", Codemasters, 
cassette ƒ 10,— 

Voor de liefhebbers van bal en keu een simulatie van 
het Bigelse biljartspel, waarbij met 23 ballen 
gespeeld wordt en het zaak is de ballen in de juiste 
(kleur) volgorde in de 6 zijgaten te laten ver¬ 
dwijnen. Met een lijn wordt aangeduid hoe de keu op 
de gekozen bal gericht is en d.m.v. een vergroting 
van deze bal boven aan het scherm is het ook nog 
mogelijk de bal recht toe recht aan weg te schieten 
of een "effektbal" te plaatsen, (hrafisch leuk uit¬ 
gevoerd en voor biljartfreaks best een aanradertje. 
De handleiding is in het Engels en bevat tevens een 
uitleg van de spelregels. 

bij ons bleef het spel op een gegeven moment 
Tiangen . 


Beeld **** 




Beeld • * * « 
Geluid* * 

Spelkwaliteit* * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie» * * * 
Prijs* * * * 

ZEER GOED 
GOED 
REDELIJK 
MATIG 

♦ SLECHT 


WHO DARES WINSII 


sorniARE, cassette. Prijs ƒ 32,— 

^dige aanwinst in de categorie oorlogsspellen in 
de stijl van "Special Qperaticais". (hrafisch is dit 
spel echter wel wat beter en qua aktie en snelheid 
gev^ we dit ook de voorkeur. Doel is een vijande¬ 
lijk kanp binnen te dringen, al schietend en 
^amten werpend, gevangen bevrijden en er uit zien 
te kco^ om tot de ontdekking te kernen, dat je nooit 
kla^ b^t. Want als dit alles je gelukt is, kun je 
opnieuw beginnen, maar dan liggen moeilijkheids¬ 
graad en tem^ wel even hoger.Je bent er dus 

wel een tijdje mee zoet. 


Spelkwaliteit **** 

Dokumentatie **** 

Prijs ***** 

ZOOT 

BUG-BVTE, cassette. Prijs ƒ 15,— 

Wie nu eens genoeg heeft van al die snelle spel¬ 
letjes en toch lekker een partijtje wil rammen, kan 
met dit spel zijn hart ophalen. Zoot moet knikkers 
verzamelen en tegenstanders neerboksen en dat gaat 
allemaal in een lekker rustig tempo. 
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Beeld * * * 
Geluid « « « 
Spelkwaliteit» * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 
Prijs» ♦ * 

ZEER GOED 
GOED 
REDELIJK 
.** MATIG 

* SLECHT 


ROMPACKS 
GREEN BERET 

(Konami). Prijs ƒ 59,— 

"Je. hebt geen schijn van kans", zo luidt de 
caiheilspellende eerste zin van de handleiding in ’n 
stuk of 8 talen, waarcnder Nederlands. Eh dat klopt; 
na ^ge vruchteloze pogingen heb ik het opgegeven 
en ik laat het aan meer bedreven spelers over de 
opdrachten uit te voeren, waarvan de eerste luidt: 
bevrijd de gevangen. Mij is het nog niet eens gelukt 
ze te zien te krijgen. 




Beeld * * * ♦ 
Geluid * * » * 
Spelkwaliteit * * * « » 
Foutafhandeling 
Gebruiksgemak 
Documentatie « » » * * 
Prijs* * » 

ZEER GOED 
GOED 

««« REDELIJK 
«« MATIG 

♦ SLECHT 


0'HAC FARMER 

MftSS TAEL LTD. Prijs ƒ 69,— 

Een Japanse versie van PacMan, waarin een boertje 
probeert zijn akkertje te bewerken en daarbij 
gehinderd vrordt door o.a. kreeften en vogels. Het 
doolhof is 3-dimensicaiaal uitgevoerd, waardoor je er 
in het begin even vreemd tegenaan zit te kijken. 
Alleen verkrijgbaar in de originele Japanse uitvoe¬ 
ring met dito handleiding, die niet direkt 
noodzakelijk is. 

Beeld **** 

Geluid *** 

Spelkwaliteit **** 

Dokumentatie * 

Prijs *** 

ZOOM 9119 

SEGA LTD. Prijs ƒ 69,— 

Ook een originele Japanse Rcjmpack met ditmaal een 
ruimteschietspel. tfet een laserkanon dien je via een 
vizier zoveel mogelijk aanvallers van het scherm te 
naaien en mdertussen brandstof te tanken bij de 
’T-jes", die af en toe voorbij kanen razen. Razend¬ 
snel aktiespel met -tig schermen. 

Beeld **** 

Geluid **** 

Spelkwaliteit **** 

Prijs *** 

WARRIOR 

ASCII Corp. Prijs ƒ 69,— 

Nog eaitje, die direkt uit Japan komt en dat is aan 
het spel wel te zien. Twee figi^en moeten elkaar w^ 
zien te schieten en dat gaat in zo'n afschuwelijk 
snel totg», dat je ze nauwelijks uit elkaar kunt 
houden. Geschikt voor 1 of 2 spelers. 

Beeld **** 

Geluid *** 

Spelkwaliteit **** 

Prijs *** 

Qi dat was dan de berg software, die we hier 
doorgeworsteld hebben. Ik dacht wel, dat er voor elk 
wat wils tussen zit, dus.... speel ze en tot de 
volgende Gids. 


JOSÉ HEKPS. 
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BLACK JACK 

(EENTENTWINTIGGEN) 
ALLEEN VOOR MSX-2 !!! 



Nil je 1 nstnu. k t 1 es? Typ 


1 


o ^ n 


10 » 

20 * ^ ^ 
3® ’ % BLACKJACK (Eenen.'fcwlii'tlfftren.) 

50 '* <01987 KSX-Glds Anstirdam % 

60 • ******:»t**:«:*:|:**:»:**3»:j|c:C»***»*»3|„|:)|tï 
70 CLEAR 300:DEFIirT A-Z: DIM PC 1500 

80 CLSrKEYOFF 

* <^<^1-0® 13, 15, 15: DIMKR <52,1 
),KRS<52):¥R=1 
100 SCREEÏ3: <X)LOR4,15,1: 

110 OPES” grp: '*FOROUTPÜTAS#! 

120 <ÏOSUB3700 

130 OH IHTERVAL=20 (ÏOSUB 1850: IHTERV 
ALOH 

140 CLS:CLOSE#1:SCREEH0 

150 .-IHSTRÜKTIES— - 

160 PRIHT**Toe1:s de nanen van de spel 
In. Druk op <RTH> na elke naam 
*<RTH> laatste naam alleen op 

170 F0RAS=1T04 

180 LOCATE5, 10+AS: PRIHT*’HAAM SPELER” 
AS;: IHPUTHSCAS) 

190 IFHS<AS><>””THEH210 

200 IFAS<2 THEH180:ELSEAS=AS+100 

210 HEXTAS 

220 I FAS>100THEHAS=AS-102ELSEAS=AS-1 
230 HS=AS 
240 CLS 

250 FORI=1TOAS:K<I>=250:ACI)=1 

260 FORQ=ITOLEH CHS <I)> ; KS=MIDS CHS CI> 

,Q,1):IFKS>”Z”THEHKS=CHRSCASCCKS>-32 

):MID$CHSCI>.Q, 1>=KS 

270 HEXTQ,I 

280 GOSUB500 

290 CiOSÜB3270 

300 CLS:COLOB=IEV;PRESET <40.50 >:PRIH 
T#l,”Even scLudden....” 

310 GOTO2670 

320 *-Inzet- 

330 COLOR 1,11 
340 CÏOSÜB2480 

350 IF Z=1 THEH T1S=” Inzet Cle Spe 
1)”:T2S=””ELSE T2S=” inzet C2e Sp^ 
)”:T1S=”” ^ 

360 GOSÜB, 1570 

370 AS=IHKEYS:IFAS<>””THEH370 
380 XS=”” 

390 PRESETC179,Z*16-8) :CX)LORl, 11:PRI 
ITT#!, ÜSIHG” ########” ■ VAL CXS ) 

400 AS=IHKEYS;IFAS=””THEH400 

410 IFAS=CHRSC13)THEH450 

420 IFAS=CHRS <8> AHDLEH CXS> >0THEHXS=L 



EFTS CXS,LEH CXS >-1):GOTO 390 
430 IF AS<”0”ORAS>”9”THEH350 
440 XS=XS+AS:CiOTO 390 
450 IHZETCZ>=VALCIS> 

460 IF IHZETC1)>KCSP>THEHPLAY”L64ACA 
CACAC”:GOTO350 

470 IF IHZETC1)+IHZETC2)>KCSP>THEHPL 
AY”L64ACACACAC”:GOTO350 
480 COLORl,15:RETURH 

490 *-KAARTEH XAKEH- 

500 SCREEH5:SET PAGE 0,1:CLS:OPEH 
rp:” FOR OUTPUT AS #1 
510 LIHE C0,0>-C25,50),11,BF 
520 LIHE C28,0>-C55,50>,7,BF 
530 LIHE C55,0)-C85,50),14,BF 
540 LIHE C90,0>-C100,50>,14,BF 
550 X0=0:Y0=0:TS=”b”:GOSUB2080 
560 X0=30: Y0=0: TS=” v” : CE1SUB2080 
570 X0=60: Y0=0: TS=” k” ; <ÏOSUB2080 
580 X0=90;Y0=0:GOSUB2190 
590 X0=120: Y0=0: <5OSUB2260 
600 LIHEC150,0)-C170,38),1,B 
610 PAIHTC100,100>,2,1 
620 SET PAGE 0,0 
630 RETURH 

640 DATA2,3,4,5,6,7,8,9, 10,B,V,H, A 
650 DATA2,3,4,5,6,7,8,9,10,10,10,10, 

660 FORKL=1TO4:RESTORE640 

670 FORI= CKL-1>*13+lTOKL*13:READERS < 

I):HEXTI 

680 FORI= CEL-1> *13+ITOKL*13:KR C1,0 > = 
KL*2-1:READKR C1,1):HEXTI 
690 HEXTKL 
700 KLS=”-Hp^” 

710 F0RI=2T02 

720 VPOKE BASB(6) + I, I10D16 
730 HEXTI 
740 RETURH 

750 *-KAARTEH SCHUDDEH- 

760 PS=”FEDCBA”:PS=PS+PS+PS 
770 PS=”S10M500L64O1”+PS 
780 PLAYPS 
790 FOR 1=1 TO 52 
800 PRIHT”.”; 

810 Q=IHTCEHD<-TIME)*52+1>:IFQ>52THE 
H790 

820 SWAPKRCI,0),KRCQ,0) 

830 SWAPKRCI,1>,KRCQ,1> 

840 SWAPKRS(I),KR$<Q) 

850 HEXTI 
860 KRT=0 
870 PRIHT 
880 RETURH 
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Ö9® '-KAARTEH LEGGEIT- 

900 KRT=KRT+1: IF KKT>52THElïGOSUB760 
910 KRS=KR* <KRT):X=KR <KRT,1) 

920 K$=MID$<KLS,KR(KRT,0>,2) 

930 KL=KR(KRT,0) 

940 IFSLAGOTHEÏRS <SLAG)=KR*: R<SLAG) 
=KRT 

950 R<0>=KRT 
960 CX=150 

970 IFKR*=’'B” THEÏ CX=0 

980 IFKR*=*‘V” THEÏ CX=30 

990 IFKRS="H” THEF CX=60 

1000 IFKRS=»*A’' THEF CX=90 

1010 IF WR=0THEFVR=1;GOTO1100 

1020 IFKL=30RKL=7 THEF CC=8ELSECC=1 

1030 PX=PK*25-20:PY=LG*50-4 

1040 COPY <CX,0)-<CX+22,42),1 TO CPX 

,PY>,0 

1050 IFCXO150THEF1090 

1060 PRESET <PX+3,PY+3),15:COLOR CC,0 

:PRIFT#1,KRS 

1070 COPY<PX,PY>-<PX+20,PY+25>,0 TO 
P 

1080 COPY P,3 TO (PX+20.PY+40),0 
1090 PRESET <PX+6,PY+16):COLOR CC:PRI 
FT#1,K* 

1100 IF X>10 THEF X=10 

1110 IF KRS=*’A”THEF X=11:AA=AA+1 

1120 K=K+X 

1130 IFK>21AFDAA>0THEFAA=AA-1:K=K-10 
:GOTO 1130 

1140 PK=PK+1:AK=AK+1 
1150 RETÜRF 

1160 ’- einde sub. - 

1170 'EIFDE DEZE ROFDE 

1180 BEEP:PLAY”L4S1M5000GEGR8GEGR8GD 

DFEDC2‘* 

1190 IF (FS=1AFDAS>1>THEF3520 
1200 RETÜRF 

1210 IF< <FS=1ORFS=0>AFDAS>1)OR(K<1) = 

0AFDAS=1)THEF1280 

1220 IFPLAY<0)THEF1220 

1230 GOSÜB760 

1240 IFPLAY<0>THEF1240 

1250 IFIFKEYSOCHRS <13)THBF1250 

1260 SCEEEF5:OPEF *'£rrp: ** FOR OUTPUT 

AS #1 

1270 RETÜRF 

1280 •-EIFDE- 

1290 IFTERVALOFF:COLOR= <3,0,0,0):COL 
OR=(13,5,5,5> 

1300 SETPAGE 0,2 

1310 FOR Q=lTOAS;COLORl,14 

1320 IFK<Q)>0THEFCOLOR1,13:VIF=1 

1330 PRESET <40,32+83t:Q> : PRIFT#1, ÜSIFG 

»#: \ \ ##### »*;Q;FA<Q>;K<Q>; 

1340 FEXTQ 

1350 SET PAGE 0,0 

1360 COPY (27,0)-(230,20),2 TO P 

1370 COPY P TO (10,0),0,TPSET 

1380 FOR Y=91 TO 21 STEP-10 

1390 COPY (27,Y)-<197,103),2 TO P 

1400 CDPY P TO (10,21) 

1410 FEXTY 

1420 IFWIF=ITHEFPLAY"S9M5000T12806L1 
6CR16CR16L4DCFL2EL16CR16CR16L4DCGL2F 
L16CR16CR16L407C06AFEDL16B-R16B-R16L 
4AFGF” 

1430 COLOR=<13,7,7,7):FOR T=1 TO 100 
:FEXT T 

1440 (X)LOR=(13,5,5,5) :FOR T=1 TO 100 
:FEXT T 

1450 IFPLAY(0)THEF1460 

1460 A*=IFKEY*: IFA*=”'*GOTO1430 


1470 IF IFSTR(*’JJ”, AJfc)THEFCOLOR=REST 
ORE:COLORl,15:IFTERVALOF:GOTO290 
1480 IF IFSTR(‘*Fn’*, AS)THEFGOTO3510 
1490 GOTO1430 

1500 *-achterkanten leggen- 

1510 LIFE<0,39)-(170,192),2,BF 

1520 FORV=46TO146STEP100:FOR Ü=6T046 

STEP24 

1530 CDPY (120,0)-(140,40),! TO <U,V 

1540 FEXTU,V 
1550 RETÜRF 

1560 ’-TEKST- 

1570 IFIHKEYS<>""THEF1570 
1580 LIFE<5,10)-(170,30),15,BF 
1590 PRESET(5,10) 

1600 KL=1 

1610 FORL=lTOLEF(TlS) 

1620 S*=MIDS<T1S,L, 1) 

1630 IFSS=”C"THEFKL=13:GOTO1680 

1640 IFS«=”I”THEFKL=1:GOTO1680 

1650 IFS»=”#’'THEFPUTSPRITE0, (140,3), 

3,1:GOTO1680 

1660 CDLORKL, 15 

1670 PRIFT#1,S$; 

1680 FEXTL 

1690 PRESET(5,20) 

1700 KL=1 

1710 FORL=lTOLEF(T2*) 

1720 S*=ltl DS (T2S, L, 1) 

1730 IFSS=‘'["THEFKL=13:GOTO1780 

1740 IFS*=”1”THEHKL=1:GOTO1780 

1750 IFSS='*#”THEFPÜTSPRITE0, (140,3), 

3,1:GOTO1780 

1760 COLORKL 

1770 PRIFT#1,SS; 

1780 FEXTL 

1790 IFAFTV=0THEF1830 
1800 AFS=IFKEYS: IFAF.%=*'”GOTO1800 
1810 IFAFS>'*Z"THEFAFS=CHRS (ASC (AFS)- 
32) 

1820 PUTSPRITE0,(140,3),0,0 
1830 T1S="'’: T2S=”'’: AFTW=0: RETÜRF 

1840 ’-naaiB knipper- 

1850 FC=1-FC 

1860 IF FC=0 THEF COLOR=<3,0,0,0)ELS 
E(X)LOR= <3, 1, 1,6 ) 

1870 RETÜRF 

1880 *-splitsen- 

1890 TlS=”SCplltsen of I: T2S=**DC oorg 
aan”:AFTV=1:GOSÜB1570 
1900 IFAFS=”D”THEFEETÜRF 
1910 IFAFS<>”S”THEF AFTV=1:GOSUB1570 
1920 DB=2 

1930 COPY <30,42)-(54,90) TO P 
1940 FOR Y=42 TO 92 STEP 4 
1950 COPY P TO (30,Y>,0 
1960 FEXTY 

1970 FOR X=30 TO 6 STEP -4 
1980 COPY P TO (X,92),0 
1990 FEXT X 

2000 COPY <120,0)-<140,40),1 TO <30, 
46) 

2010 COPY <120,0)-<140,40),1 TO (30, 
96) 

2020 Z=2:GOSÜB330 

2030 KRT=KRT-2:PK=1: AA=0 :K=0: AK=0 
2040 WE=0:GOSUB 900 
2050 KRT=KRT+1:SK=KRT:GOSÜB900 
2060 RETÜRF 

*-"R V TT _ 

2080 PRESET (X0+2Y0+4 ) : COLORl: PR I FT# 
1, TS+**0»* 

2090 LIirE(X0+l, Y0+13)- <X04^12, Y0+13> , 
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2100 LIHE<X0+12,Y0+13)-<X0+19,Y0+20) 
» 

2110 LIirE<X 0 + 19 , Y 0 + 20 >- <X 0 + 1 , Y 0 + 20 ) , 
15 

2120 LIÏE<X0+1,Y0+20)-CX0+1,Y0+13>,1 
5 

2130 PAIÏT<X0+2,Y0+17>,15,15 
2140 LIFE <X0,Y0)-<X0+20,Y0+25),1.B 
2150 COPY <X0,Y0)-<X0+20,Y0+20),1 TO 
P 

2160 COPY P,3 TO (X0+20,Y0+40>,1 
2170 RETÏJRF 

2180 '-aas- 

2190 PRESET <X0+2,Y0+2 >:COLOR6: PRIFT# 
1, ” A” 

2200 LIFE <X0,Y0>-(X0+20,Y0+25>,1,B 
2210 COPY <X0,Y0>-<X0+20,Y0+20>,1 TO 
P 

2220 COPY P,3 TO CX0+20,Y0+40>.1 
2230 GOTO2170 

2240 LIFE (X0,Y0)-(X0+20,Y0+19),l.B 
2250 RETÜRF 

2260 *-achterkanten- 

2270 PRESET <X0,Y0 >:COLORl 

2260 PRIFT#l,*‘r ” 

2290 PRESET(X0+14,Y0>;COLORl 
2300 PRIFT#1 ,»‘t'» 

2310 CIRCLE(X0+10,Y0+16),12,0,,,l.5 
2320 LIFE (X0,Y0)-<X0+20,Y0+25),1,B 
2330 PAIÏT (X0+10,Y0+16),14,1 
2340 CIECLE(X0+10,Y0+16>,12,0,,,1.5 
2350 PAIFT <X0+10,Y0+16),0,0 
2360 LIFE <X0,Y0>-(X0+20,Y0+25),1,B 
2370 LIFE <X0+21,Y0)~ <X0+30,Y0+50).4. 
BF 

2380 COPY <X0,Y0>-<X0+20,Y0+20>,1 TO 
P 

2390 COPY P,3 TO <X0+20,Y0+40),1 
2400 PRESET <X0+6,Y0+5>:COLOR 7:PRIFT 
#1,”bi*’ 

2410 PRESET<X0+8,Y0+13>:COLOR 6:PRIF 
T#l, »s” 

2420 PRESET<X0+10,Y0+21>:COLOR 9:PRI 
FT#l,”x*' 

2430 RETURF 

2440 SCREEF5:DI11P<105):SET PAGE 1,1. 
CLS:OPEF'grp:”FOROUTPÜTAS#!:GOSÜB500 
2450 SET PAGE1,1 
2460 GOTO2450 

2470 ’-scorelijst- 

2480 COLOR 1,11 

2490 PRESET <171,0): PRIFT#!,*’|- 


i •* ; 

2500 PRESET <171,8): PRIFT#1,USIFG * 

1 ######## I •*; IFZET < 1) 

2510 PRESET <171,16):PRIFT#1," I- 

- 1 ”; 

2520 PRESET <171,24): PRIFT#1,USIFG 
”I########I”;IFZET <2) 

2530 PRESET <171,32):PRIFT#1,” '- 

—-1 t» • 

2540 FOr’q= 1 TO as 

2550 IF Q=SPTHEFCX)LOR3, 11 ELSE COLOR 
1 , 11 

2560 YP=Q#40 

2570 PRESET <171,YP):PRIFT#1,”p 

I"; 

2580 PRESET <171,YP+8):PRIFT#1,USIFG 
” I \ \ I ” ; F* <Q) ; 

2590 PRESET <171, YP+16) : PRIFT#1, ” |- 

-- 1 "; 

2600 PRESET <171,YP+24):PRIFT#1,ÜSIÏ 
G” I ######## I ; K <Q) ; 

2610 PRESET <171, YP+32):PRIFT#1,” ■- 


2620 FEXT Q:COLORl,15:RETURF 

2630 ’ wachtlus- 

2640 FOR T=1 TO 500: FEXT 
2650 RETURF 

2660 * hoofdlus- 

2670 FOR Q=1T0AS:K<Q)=250;FEXTO 
2680 COLOR=FEV ^ 

2690 SP=1:F=1:GOSUB760 

2700 IF AS=1 THEF IFK<1)<1 THEF 1290 

:ELSE GOTO2730 

2710 PF=0;FOR Q=lTOAS:IF K<Q)>0THEFP 
iT—PBr+i 

2720 FEXT Q: IF PF<2 THEF <10T0 1290 

2730 IF SP>AS THEF GOSUB 1180:GOTO26 
90 

2740 IF K<SP)<1THEFSP=SP+1:GOTO2730 

2750 LIFE<5,10)-<170,30),15,BF 

2760 SL=1:DB=1:IFZET<1)=0:IFZET<2)=0 

2770 IF SL>DB THEF SP=SP+1:GOTO2730 

2780 IF SL=1 THEF 2870 

2790 IF SL=2 THEF KRT=KRT+1:SVAPKR<K 

RT,0),ER<SK,0):SVAPKR<KRT,1),KR<SK.1 

) : SVAPKRS <KRT),KR* <SE):KRT=KRT-1 

2800 AA=0 :K=0: AK=0 :PK=1:LG=2 

2810 CX3PY <120, 0)-<142, 42) , 1 TO <5,1 

46 > , 0 

2820 COPY <120,0)-<142,42),1 TO <30, 
146),0 

2830 LIFE <55,146)-<170,191),2,BF 
2840 GOSÜB900 
2850 GOTO 2920 

2860 ’-speler speelt- 

2870 AA=0: AK=0:K=0:PK=1:LG=1 
2880 GOSUB 1510:GOSUB 2630:GOSUB900 
2890 Z=l:GOSUB 330 
2900 GOSUB 900 

2910 IF KRS<KRT)=KRS<KRT-1)THEF GOSU 
B 1890 

2920 IF K)21 THEF GOTO 3200:* verlore 
n 

2930 IF K=21 THEF BEEP:PLAY”V15S1M50 
00GGGDEED.BBAAG”:GOTO 3030 
2940 IF AK=5 THEF K=21:BEEP:PLAY”V15 
S1M5000GGGDEED.BBAAG”:GOTO3030 
2950 IF K>15 THEF 2990 
2960 T2S=”KC aart”;AFTW=1:GOSUB 1570 
2970 IF AFS=”K”THEF GOSUB 900:GOTO29 
20 

2980 GOTO 2950 

2990 T2A=”K[aart of 3 PC assen”:AFTW=1 
:GOSUB 1570 

3000 IF AF*="K”THEF GOSUB 900: G0T02 
920 

3010 IF AF$=”P”THEF GOTO 3030 
3020 GOTO 2950 

3030 TlS=”t U heeft!”:T2A=STRS<K)+” 

C punten”:AFTW=0:GOSUB 1570 
3040 KP=K 

3050 ’-bank speelt- 

3060 LG=3:PK=1:K=0: AK-0 : AA=0 

3070 GOSUB 2640 

3080 GOSUB 2640 

3090 GOSUB 2640 

3100 GOSUB 900 

3110 GOSUB 2640 

3120 GOSUB 900 

3130 IF E>21 THEF GOTO 3180 

3140 IF K<KP THEF GOTO 3110 

3150 T1S=” Bank wint met”:T2S=”C”tST 

R$<K)+”3 PUFTEF#”:AFTW=1: GOSUB 1570 

3160 IFZET<SL>=-IFZET<SL> 

3170 GOTO3230 

3180 Tl$=" Bank verliest”:T2S=”metC” 
+STRS<K)+”3 PUFTEF#":AFTW=1:GOSUB 15 
70 
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3190 GOTO3230 

3200 PLAY"T200O3L4BAGFEr>C2." 

3210 T1S==** ü verliest” :T2S=**metC"+ST 
RS<K>+”] PÜHTEF#": AirTW=l:GOSÜB 1570 
3220 IFZET(SL)=-IirZET<SL) 

3230 K(SP)=K<SP) + IirZET(SL) 

3240 SL=SL+1 

3250 GOSÜB2480:GOTG 2770 

3260 * -eindrapport- 

3270 SET PAGE 0,2:COLOR15,15:CLS 

3280 CIBCLE<30,10),10,1,,,4 

3290 PAIirT<30, 10> , 14, 1 

3300 COPY <30,0)-(60,20) TO (200,0) 

3310 LIFE (30,0>-(200,0),1 

3320 LIFE <30,20)-(200,20),1 

3330 PAIFT(60,10) , 11, 1 

3340 LIFE (27,10)-(27,100),1 

3350 LIFE (197,20>-<197,100),1,BF 

3360 LISE (27,100)-<197,103),1,BF 

3370 LIFE (30,21)-(193,95),14,BF 

3380 PRESET<62.24):COLORl,15:PRIFT#1 

,”U I T S L A G” 

3390 PRESET<40,80):COLOR4,15:PRIFT#1 
,”Fog een spelletje?” 

3400 PAIFT(255,191),0, 1 
3410 SET PAGE 0,0 
3420 RETÜRF 

3430 ’-eindrapport tonen 

3440 COPY (27,0)-<230,20),2 TO P 
3450 COPY P TO <10,0),0 
3460 FOR Y=91 TO 21 STEP-10 
3470 COPY <27,Y)-(197,103),2 TO P 
3480 COPY P TO (10,21) 

3490 FEXTY 
3500 RETÜRF 

3510 '-herstellen 

3520 COLOR=RESTORE 

3530 CLS :SCREEF0 

3540 LOCATE0,2 

3550 PRIFT”T O T Z I E F S 

3560 FORI=lTOAS-l 

3570 PRIFTTAB(10)F*(I) 

3580 FEXTI 

3590 IFAS>1THE1IPRIFTTAB(10)”EF ”FS(A 
S) 

3600 EFD 

3610 *-knipper logo- 

3620 FC=1-FC 

3630 IF FC=1 THEF COLOR=<3,0,0,7):CO 
LOR=(4,0,0,0):ELSECOLOR=(4,0,0,7):CO 
LOR=(3,0,0,0) 

3640 IF PLAY<0)=0THEFGOSÜB3680 
3650 IFTERVALOFF: IFTERVALOF 
3660 RETÜRF 

3670 »-EÜROVISIE tune- 

3680 PLAY"S0T64M5000O3L8FB-L16B-O4CL 
8D03B-04L8F.L16E-L8DDE-L16FE-DE-L8FL 
16C03B-04CDL8CX)3FB-L16B-04CL8D03B-04 
L4FL8DDL16E-FDE-L8C.03L16B-L4B-.” 
3690 RETÜRF 

3700 ’-logo en Instruktles— 

3710 SCREEHS,3:SETPAGE0,0:COLOH3,15, 

1 ■ WTTiTtl'^O • f'X Cï 

3720 COLOR= <3,0,0,0):COLOR=(4,7,7,7) 
3730 COLOR3,4 

3740 OF IFTERVAL =50 GOSÜB 3620:IFTE 

RVAL OF 

3750 GOSÜB3680 

3760 RESTORE4220 

3770 SS=””:FORI=1T032:READH» 

3780 SS=SA+CHRJt (VAL (H*> ) : FEXTI 

3790 SPRITE$(1)=SS 

3800 PRESET<0,0):PRIFT#1,” ,- 


1 


3810 PRESET(0,6):PRIFT#1,” 

■ ■ 11 

3820 PRESET(0,12):PRIFT#1,‘ 

3830 PEESET(0, 18):*IFT#1,» 

■ ■ ■■ ■ ■■■ I 

3840 PRESET(0,24);PRIFT#1,‘ 

■ ■■■ ■ ■ ■ I 

3850 PRESET <0,30 >:PRIFT#1,” 

mm ■ ■ BI 

3860 PRESET(0,36):PRIFT#1,” 

■■ ■ ■ Bi 

3870 PRESET( 0,42 ):PRIFT#1,” 

3880 PRESET (èf^) : BSeT#! , ” 

3890 COLOR4,15:PRESET(12,50 >:PRIFT#1 
,”<c) Jan de Vries/Rik Wanders” 

3900 COLOR3,4:PRESET(240,50):PRIFT#1 

tf I ft 

3910 PRESET<0,58):PRIFT#1,” •- 


3920 RESTORE4100:GOSÜB640 
3930 COLORl,15:PRESET(0,80) 

3940 READA*:PRIFT#1,A* 

3950 AS=IFKEYS: IF AJf=””THEF3950 
3960 IF IFSTR(”Fn”,A*)THEFRETÜEF 
3970 IF IFSTR(”Jj”,A*)THEF3980ELSE39 
50 

3980 IFTERVALOFF:COLORl,15:PRESET(0, 
80) 

3990 READA*: 

4000 IF A*<>”###” THEF 4070 
4010 PÜTSPRITE0,(200,160),3,1 
4020 IFTERVALOF 

4030 IF IFK:EY$<>CHRS<13)THEFGOTO4030 
4040 LIFE(0,80)-<255,191),15,BF 
4050 PÜTSPRITE0,(0,0),0,0 
4060 GOTO3980 

4070 IF AS=”©@©”THEFCOLOR=FEV:IFTERV 
ALOFF:COLORl,15:RETÜRF 
4080 PRIFT#1,A* 

4090 GOTO3990 

4100 DATA”Velkora bij SPEL 21 (ook we 
1 'Blackjack’ geheten). 

Wil Je instruktles? Typ J of n 

tf 

4110 DATA” 1. Elke speler begint met 
f1.250 

2. Je speelt tegen de bank 3 

. Je krijgt een open en een dl 

chte kaart: bepaal dan hoevee 

1 Je wilt inzetten. 

4120 DATA ### 

4130 DATA ” 4. Je score is de som va 
n de waardes van alle kaarten 

d.±e Je kreeg. 

4140 DATA ” 5. Plaatjes (boer,vrouw, 
heer) tellen voor 10, aas telt 

voor 1 of 11. 

4150 DATA ” 6. Heb Je meer dan 21 pu 
nten dan heb Je verloren! 

4160 DATA ” 7. Als de bank beter spe 
elt dan Jij, dan ben Je Je inzet 
Jammer genoeg kwijt! 

4170 DATA ### 

4180 DATA ” 8. Je mag pas PASSEF als 
Je meer dan 15 punten hebt 

4190 DATA ” 9. Als Je Ie en Je 2e ka 
art gelijk zijn, mag Je 

splitsen. 

4200 DATA ”10. Vijf kaarten levert m 
instens 21 punten op. 

4210 DATA ###,@@@ 
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, &m, &HC 

m’* ’ &HA4, &HA4, &HE5, &H4, & 

HA4,AHC4,&HA7,&HFF,&H81,&H89,&H89.&H 
89, &H89. &H89, &H89, &H9, &H49, &HC9, &HF9 
.&HC1,&H41, &H1,&HFF 
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3090 

- 

21 

Regel: 

3100 

- 

66 

Regel: 

31 10 

- 

21 

Regel : 

3120 

- 

66 


Rege 

3130 


81 

Rege 

31 40 


132 

Rege 

3160 


146 

Rege 

3160 


213 

Rege 

3170 

- 

65 

Rege 

3180 

- 

30 

Regel 

'3190 

- 

65 

Regel 

3200 

- 

41 

Regel 

3210 

- 

247 

Regel 

3220 

- 

213 

Regel 

3230 

- 

216 

Regel 

3240 

- 

48 

Regel 

3260 

- 

33 

Regel 

3260 

- 

68 

Regel 

3270 

- 

214 

Regel 

3280 

- 

155 

Regel 

3290 

- 

9 

Regel 

3300 

- 

12 

Regel 

3310 

- 

31 

Regel 

3320 

- 

67 

Rege 1 

3330 

- 

36 

Regel 

3340 

- 

217 

Regel 

3350 

- 

235 

Regel 

3360 

- 

1 48 

Regel 

3370 

- 

71 

Regel 

3380 

- 

80 

Regel 

3390 

- 

£3 

Rege 1 

3400 

- 

1 47 

Regel 

3410 

- 

1 56 

Regel 

3420 

- 

142 

Regel 

3430 

- 

58 

Regel 

3440 

- 

221 

Regel 

3450 

- 

67 

Regel 

3460 

- 

162 

Regel 

5470 

- 

Ü7 

Rege 1 

3480 

- 

25 

Rege 1 

3490 

- 

220 

Regel 

3500 


1 42 

Regel 

3510 

- 

58 

Regel 

3520 

- 

56 

Regel 

3530 

- 

207 

Regel 

3540 

- 

40 

Regel 

3660 

- 

51 

Regel 

3560 

- 

61 

Regel 

3570 

- 

i 86 

Regel 

3680 

- 

204 

Rege 1 

3590 


245 

Regel 

3600 

- 

129 

Regel 

3610 


58 

Regel 

3620 


21 

Regel 

3630 


16 

Regel 

3640 


177 

Regel 

3660 


22 

Regel 

3660 


142 

Regel 

3670 


68 

Regel 

3680 


121 

Regel 

3696 


142 


Regel: 3700 - 56 
Regel; 3710 - s® 
Regel: 3720 - 224 
Regel: 3730 - le 
Regel: 3740 - 93 
Regel: 3760 - g 
Regel: 3760 - 36 
Regel; 3770 - 223 
Regel: 3760 - 10 
Regel: 3790 - 180 
Regel: 3600 - 91 


Regel; 

; 3810 

- 

240 

Regeli 

; 3820 

- 

135 

Rege1: 

: 3830 

- 

92 

Regel: 

; 3840 

- 

29 

Regel: 

3860 

- 

242 

Regel; 

3860 

- 

110 

Regel: 

3670 

- 

254 

Regel; 

3880 

- 

121 

Regel: 

3890 

- 

1 70 

Regel: 

3900 

- 

1 47 

Regel: 

3910 

- 

1 51 

Regel: 

3920 

- 

5 

Regel: 

3930 

- 

3 

Regel; 

3940 

- 

125 

Regel: 

3950 

- 

34 

Regel: 

3960 

- 

218 

Regel; 

3970 

- 

83 

Regel; 

3960 

- 

214 

Regel; 

3990 

- 

38 

Regel: 

4000 

- 

184 

Regel: 

4010 

- 

£6 

Regel: 

4020 

- 

67 

Regel: 

4036 

- 

181 

Regel: 

4040 

- 

229 

Regel: 

4050 

- 

208 

Regel: 

4060 

- 

50 

Regel: 

4070 

- 

1 1 

Regel: 

4080 

- 

87 

Regel: 

4090 

- 

60 

Regel: 

4100 

- 

160 

Regel; 

41 i e 

- 

247 

Regel: 

4120 

- 

13 

Regel: 

4130 

- 

98 

Regel: 

41 40 

- 

182 

Regel; 

4160 

- 

192 

Regel: 

4160 

- 

1 50 

Regel; 

4170 

- 

13 

Regel: 

4180 

- 

12 

Regel: 

4190 

- 

255 

Regel: 

4200 

- 

23 

Regel: 

4210 

- 

249 

Regel: 

4220 

- 

209 


Toieal: 51976 



Steun de coUecte. 
Giro 5®^ Den Haag. 

Postbus 30802, 2500 GV ’s-Gravenhage, Tel. 070 - 924761 








WIJZIGINGEN 

6c 

AANVULLINGEN 
TOPOGRJriï UTRECHT 

In dit programma (Gids nr. 8, pag. 20) 
moeten in regel 4020 de coördinaten van 
Lage Vuursche veranderd worden in 139,60 

AÜTOVÖURBIOP 

Bij dit artikel zijn de waardes van de 
onderdelen vergeten. 

C = elco 100UF/10V 
P = potmeter 10K 
R1 = 1K2 
R2 = 33 Ohm. 

TOORBEREIDEHD OHTLEDEH DEEL 3 

Bij dit programma krijgt het kind ook de 
punten van de evt. vorige speler erbij. 
Regel 3380 moet alsvolgt worden veranderd; 


OPGERICHT : MSX 1 & 2 Contactgroep 

DOEL : Contact tussen MSX gebruikers 

bevorderen. 

METHODE : Door uitgave van ledenlijst 
alleen aan leden met vermelding van de 
hardware waar de leden mee werken en de 
interesse van de leden. Tevens wordt 
vermeld op welke dag/tijd men zelf contact 
kan zoeken met de leden. 

BIJEENKOMSTEN: Eens per 2 maanden zonder 
computer, alleen om het contact tussen de 
leden te bevorderen. 

CONTACT LEGGEN: De leden zoeken zelf 
kontact, zonder tussenkomst van derden. 
KOSTEN: Fl. 1,50 voor de lijst excl. porto 
REGIO : De contactgroep werkt door geheel 
Nederland doch in nu nog gecentreerd in 
Den Haag en omstreken. 

EIGEN BLAD: Er is een nieuwsbrief met o.a. 
alle vragen vanuit de leden, die niet 
makkelijk opgelost kunnen worden. Dit blad 
is gebwoon een verzamelmap met A4 formaat 
aanvullingen. 

VRIJHEID: Er zijn twee hoofdregels. 1: Er 
wordt geen commeciele software geruild op 
bijeenkomsten. 2: Men houdt zich aan de 
dagen en tijden die op de ledenlijst 
staan. 


3380 LOCATE0,7:PRINT"Een van de favoriete" 
:PRINT:PRINT:"spelletjes van Koning WIEDOE 
.";GF=0 

Om dit spel ook op de MSX-2 te kunnen 
spelen moet in regel 180 de CLEAR opdracht 
worden veranderd in; CLEAR 1400 

IIIDE!t-2 


In dit programma uit Gids nr. 5,pag.22 in 
regel 4470 de tweede 0$(5) veranderd 
worden in 0$(6). 


INSCHRIJVINGEN; Alleen schriftelijk met 
vermelding van hardware (type computer, 
drive, plotter enz.) en opgave van de 
interesse plus evt. telefoonnummer en of 
dit nummer wel of niet op de lijst moet 
voorkomen. Na overmaking van Fl. 1,50 + 
porto wordt de lijst toegestuurd. Op alle 
post wordt gereageerd, wij vragen alleen 
wat geduld. 

POSTADRES: MSX 1&2 Contactgroep 
Pompoenstraat 7 
2564 LV Den Haag 









im »r 





Wie Aifefer 

hoêLméi^ 
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EEN SPANNEND NEDERLANDSTALIG ADVENTURE, waarin u belast wordt met het 
onderzoek naar de dood van Vera Cruz. Was het moord of zelfmoord? De 
ingewikkelde, doch realistische opbouw van het spel zullen u tot het einde toe in 
spanning houden. 


Nederlandstalig ‘MOORD’ Adventure op cassette en diskette voor 
Commodore 64/128 en MSX 
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BOEKEN 


XSX TRUIS ER TIPS DEEL 8 

Uitgeverij: Stark-Texel 
Auteur: Marcel Kreeft 
Prijs: Fl. 25,15 

Dit is alweer het achtste deeltje in een 
serie die geschreven is door diverse men¬ 
sen. Het voordeel van deze verschillende 
auteurs is het afwisselende aanbod van 
tips en programmaatjes, een nadeel is de 
verschillende schrijfstijl. De één geeft 
een duidelijke en heldere uitleg, bij een 
ander is de tekst voor veel lezers vrijwel 
onbegrijpelijk. Ook kan het gebeuren, dat 
twee schrijvers onafhankelijk van elkaar 
vrijwel gelijke onderwerpen behandelen. 

Deel 8 is weer één van van de betere 
boekjes (dat werd trouwens tijd ook) met 
een redelijke uitleg en veel leuke en 
vooral nuttige routines en tips. Enkele 
toppers: 

Anti-scroll-routine voor de 24ste regel, 
een joys^ck/vuurknop routine, uitbreiding 
BASIC editor voor het samenvoegen van twee 
programmaregels, 80 tekens op een regel 
voor 64k MSX-1 machines (max. zelfs 132 
maar dat wordt vrijwel onleesbaar), 
Nederlandse foutmeldingen en CLOAD+RUN. 

Verder nog veel leuke en bruikbare rou¬ 
tines. Alles bij elkaar biedt dit boekje 
veel waar voor het geld. 

CORFDTER ER RODIGEBRUIK TOOR RLLE eORE- 
CORPDTERS 

Uitgeverij: Stark-Texel 

Auteurs: Wessel Akkerraans en Piet den 

Heijer. 

Prijs: Fl. 36,75 

Dit boekje is uitsluitend gericht op 
datacommunicatie via de computer met 
behulp van een modem. Een zeer complete 
verhandeling met erg veel (goede) illu¬ 
straties, waarin alles over deze com¬ 
municatie wordt uitgelegd. Het betreft 
hier voornamelijk technische informatie 
met zeer veel schema's; het werken met een 
modem zelf komt nauwelijks aan bod en dat 
is begrijpelijk, omdat er erg grote ver¬ 
schillen tussen de modems bestaan. 
Hiervoor blijven we afhankelijk van de 
bijgeleverde (soms onduidelijke) hand¬ 
leidingen. 

Het boekje is een prima basis voor al 
diegenen die zelf -al dan niet met behulp 
van een bouwpakket- een modem willen 
bouwen of voor hen, die een databank 
willen beginnen. Een greep uit de 
onderwerpen: 


Synchrone/Asynchrone transmissie, codes en 
tekensets. Simplex, half-duplex en full- 
duplex verbindingen. Aansluitingen op het 
telefoonnetwerk, modulatiesoorten, modem- 
soorten, V.24 en RS232C interface. Verder 
diverse tabellen, connector overzichten en 
aansluitschema's. En dat is dan slechts 
een greep. 

Ondanks de goede leesbaarheid is dit toch 
zeer zware kost voor de beginner. Wie 
echter enige basiskennis bezit (bits, 
bytes, ASCII enz.) kan van dit boek veel 
leren. 

Vrijwel hetzelfde boek is uitgebracht voor 
personal computers. Dit boek komt van 
dezelfde auteurs, c.q. uitgeverij, maar is 
iets dikker en kost Fl. 41,50 


KSX DiSIC TOOR ÜRDERER deel 2 

Uitgeverij: Stark-Texel 
Auteur; H.C. de Heer 
Prijs: Fl. 24,75 

Dit deel sluit aan op deel 1 en -zo staat 
het ook in de inleiding- dit eerste deel 
moet dus wel eerst zijn doorgenomen en 
begrepen. Dit deeltje wordt al iets las¬ 
tiger en onder andere de volgende onder¬ 
werpen komen aan bod; 

Geheugen van de computer (RAM, ROM, bytes) 
GOSUB's, een huiswerkhulp en een adres¬ 
senbestand. Tekenen en kleuren (SCREEN 2 
en 3) en muziek (met de PLAY- instructie). 

Verder bevat dit boekje nog een programma 
"vraag en aanbod" met maximaal 80 vragen 
en antwoorden. Het geheel is' aardig ge¬ 
schreven , de uitleg is redelijk en alles 
is rijkelijk voorzien van illustraties. 
Ook volwassenen kunnen met deze boekjes 
hun basiskennis opdoen want de deeltjes 
zijn niet op de hele kleintjes gericht. 

Al met al een leuke basis voor jong en oud 
voor weinig geld. 


XSX-2 KiCHIRETiUiLlRDBOER 

Uitgeverij: Stark-Texel 

Auteurs: Hans Klopper en Marcel Ie Belle 

Prijs: Fl. 42,90 

Dit is de opvolger van het MSX machinetaal 
handboek en -zoals was te verwachten- 
wordt dit eerste deel in deze tweede 
aflevering grotendeels herhaald; jammer 
voor al diegenen die deel 1 al in hun 
bezit hebben. 

Dit boek bevat de basiskennis machinetaal 
(talstelsels, Ram en Rom geheugen met een 
uitbreiding voor MSX-2, BASIC tokenlijst 
en de MSX-2 videochip). Verder de micro¬ 
processor, logische operaties, binair 
rekenen, Z80 machinetaal en registers. De 


53 


meeste Z80 instucties worden apart 
behandeld met voorbeelden. Ook vinden we 
een overzicht van de ROM-routines en 
diverse kleine programma’s waaronder een 
scrollroutiune voor SCREEN2, een cassette/ 
diskette conversie programma en een dis- 
assembler. In tabelvorm geeft het boek de 
’hooks', i/o adressen, Z80 instructieset, 
Rom/Bios routines en systeemvariabelen. 

Een beetje kennis van machinetaal is toch 
wel vereist om je door dit werkje heen te 
kunnen worstelen, want beide auteurs zijn 
geen leraren en missen duidelijk de 
feeling om hun kennis aan de lezers over 
te dragen. Er wordt teveel gewerkt vanuit 
hun eigen kennis en er wordt vaak vergeten 
dat bij de lezers deze kennis (nog) niet 
aanwezig is. Zo wordt soms in 1 of 2 
pagina's 'even' wat op papier gezet, waar 
in andere boeken wel 10 pagina's voor 
worden gebruikt. Een echte cursus is dit 
boek dus niet. Wel veel handige informatie 
en door het ontbreken van een uitgebreide 
uitleg komen wel veel onderwerpen aan bod. 
Voor wie het aankan een prima boekje. 


HSI BASIC HET ÏÏOIE Dl SFRITE TOEPASSIHGEN 

Uitgeverij: Stark-Texel 
Auteur: J.G. Ottenhoff 
Prijs: Fl. 27,50 

Dit boek heeft als subtitel op de 
-rommelige- omslag 'Wie zegt dat u dat 
niet kunt programmeren'. Door de 
uitgebreide en duidelijke uitleg zal 
iedereen hier wel toe in staat zijn en we 
hebben dan hier ook een goed boekje te 
pakken. Voornamelijk Screen 1 wordt hierin 
besproken met een VRAM overzicht en een 
uitleg over RAM en ROM. Tevens vinden we 
de opbouw van de BASIC-instructies in RAM. 
Waar het SCREENl betreft vinden we een 
ui^eg over tekst en kleur, sprites en 
animatie, het ontwerpen van figuren en 
VPOKE instructies. Als voorbeeld wordt het 
ontwerpen van een schaakbord met de 
schaakstukken gebruikt. Uiteindelijk komen 
we dan tot een compleet en eenvoudig 
schaakprogramma {met klok). Van dit 
programma staat een complete listing aan 
het eind van het boek en in de tekst wordt 
naar deze listing verwezen zodat deze 
listing (gelukkig) niet tweemaal in het 
boek staat. 

Het programma en de stukjes listing tussen 
de tekst komen rechtstreeks van de printer 
zodat er weinig kans is op fouten. Ook 
geeft het boek een MSX-karakterset met een 
uitgebreide beschrijving en tabellen, een 
patroontabel met kleurtabel, een token- 
lijst en ontwerpvellen. 

Toch nog wel even een minpunt. In het boek 
wordt geadviseerd om sprongen te maken 
naar REM-regels. De meeste programmeurs 
verwijderen echter de REMregels wanneer 
een programma goed functioneert om het 
geheugen zo groot mogelijk te houden en 


bewaren slechts een 'master' met deze 
REM-regels om nog eventuele wijzigingen 
aan te brengen. Er zijn ook diverse 
programma's die REM-regels verwijderen. 
Het maken van sprongen naar REM-regels is 
niet erg fraai en niet aan te raden en 
het verwijderen van deze regels wordt op 
deze manier onmogelijk gemaakt. 

Verder een prima boek, prettig geschreven 
en slechts weinig voorkennis vereist. Een 
must voor de beginnende spelontwerpers. 

A.DEBELS 


ABONNEMENTEN 


EEN ABONNEMENT IS VOORDELIGER EN JE 
MIST GEEN NUMMERS! 


Een abonnement op de MSX-Gids kost 
FL.40,= per 6 nummers en is te ver¬ 
krijgen door overmaking van dit be¬ 
drag op Giro: 5036011 t.n.v. 
J.Herps, Postbus 10252, Amsterdam. 

Voor Belgie: Bfr. 750 op bankreke¬ 
ningnummer 235-0430464-87 bij de 
Generale Bank te Hasselt, t.n.v. 
J.Herps te Amsterdam. 

Abonnementen worden aangegaan voor 
een periode van 12 maanden en de 
abonnees krijgen, voor het ver¬ 
strijken van het abonnement, een 
bericht van de uitgeefster en 
kunnen dan hun abonnement verlen¬ 
gen. Indien een verlenging niet 
gewenst is hoeft verder niet te 
worden betaald; opzeggen van een 
abonnement is niet nodig, maar 
wordt wel op prijs gesteld. 

Girobetaalkaarten of Eurocheques 
(vergeet niet het nummer op de 
achterzijde) voor een abonnement 
kunnen gestuurd worden naar; 
Uitgeverij Herps, Postbus 10252, 
1001 EG Amsterdam. 

Telefonische inlichtingen over 
abonnementen en losse nummers: 
020-327464. 
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LISTING CONTROLE PROGRAMMA 2 


lEZE LISTIHGTESM IS Vilf TDEFiSSIlIG OP DE 
LISTINGS TUiF HSE-GIDS EE. 3 

De listingtester is een hulpmiddel voor de 
lezers die de programma's uit ons blad 
zelf intikken. Achter de programma's, die 
met deze tester gecontroleerd kunnen 
worden, staat een controletelling. Door nu 
zo'n programma met deze tester te 
controleren wordt eveneens een telling 
verkregen die -per regel- overeen moet 
komen met de telling in het blad. Zijn de 
getaHen achter de regelnummers hetzelfde, 
dan is de kans erg groot dat deze regel 
goed is overgenomen. Zeker is dit echter 
niet, want wanneer bijvoorbeeld twee 
letters in een regel worden omgewisseld 
dan is de telling wel goed, maar kan het 
programma toch fouten opleveren. 


WERKWIJZE 

Eerst moet dit controleprogramma FOUTLOOS 
overgenomen worden en worden weggeschreven 
op cassette of diskette als ASCII-file met 
de volgende opdrachten: 

SAVE"CAS:TESTER",A (voor cassette). 

SAVE"A:TESTER",A (voor diskette). 

Dit hoeft slecht éénmaal te gebeuren; 
verder kan dit programma voor alle lis- 
tings worden gebruikt. 

Vervolgens moet het te controleren pro¬ 
gramma worden ingetikt. Is dit gedaan, dan 
het programma eerst wegschrijven naar 
cassette of diskette en niet eerst RUNen, 
want bij sommige fouten kan het programma 
blijven hangen en bent u het kwijt; alles 
moet dan opnieuw worden ingetikt. Nu kan 
het controleprogramma worden ingelezen en 
achter het te controleren programma worden 
geplaatst met de opdracht: 

MERGE"CAS:TESTER" (voor cassette) 

MERGE"A:TESTER" (voor diskette) 


dit bij het desbetreffende programma wor¬ 
den vermeld. Bij kleine of eenvoudige 
programma's wordt geen controletelling 
geplaatst. Ook worden meestal geen tellin¬ 
gen geplaatst bij programma's die deel 
uitmaken van een artikel. Deze programma's 
(of stukken programma) verschijnen ook 
meestal niet op de cassette of diskette 
van de programma- service. 


Sommige programma's hebben een eigen 
controle. Bij deze programma's ontbreekt 
de controletelling of staat slechts een 
telling voor het gedeelte dat niet door 
het programma zelf wordt gecontroleerd. 
(Meestal BASIC-gedeeltes bij een machi¬ 
netaal programma). 


65000 • ***:k****)|c*)»:************ 

65010 • * LISTIITG TESTER 2 * 

65020 ’ * Door Alfred Debels * 

65030 ‘ * <c)1986 De MSX Gids * 

65040 * Amsterdam 4c 

65050 ♦ **4c4:*4c**4c4c4c****4c4:*4c**4c4c 

65060 ' 

65070 CLS:OLEAR:SCREEN 0:VIDTH 40:PRI 
NT 

65080 PRINT "Weergave vla beeldscherm 
of printer?” 

65090 PRINT :PRINT ”B of P?: ” 

65100 XS=INKEYS:IF XS<>”B” AND X$<>"P 
” THEN 65100 
65110 START=32769! 

65120 RG=START+2: T=0 
65130 REM 

65140 VR=PEEK(START) +2564:PEEK<START+1 
> 

65150 NR=PEEK(RG)+2564:PEEK(RG+1) 

65160 IF VR=0 THEN 65270 
65170 IF irR>=65000! THEN 65270 
65180 S=0:FOR I=RG+2 TO VR-1 
65190 A=PEEK<I) 

65200 IF A=143 THEN I=VR:GOTO 65220 
65210 S= S+A;NEXT 
65220 S=SMDD256 
65230 T=T+S 

65240 IF XA=”B” THEN PRINT ÜSING "Reg 
el:##### - ###";NR,S:GOTO 65260 
65250 LPRINT ÜSING "Regel:##### - ### 
”;NR,S 

65260 START=VR: RG=VR+2: (ÏOTO 65140 
65270 IF XS=”P” THEN 65290 
65280 PRINT:PRINT "Totaal: ”;T: END 
65290 LPRINT "Totaal: ";T; END 


Vervolgens kan de controle worden gestart 
met: 

RUN 65000. 

Let erop de fouten te corrigeren in het 
originele programma. Na het laden van het 
controleprogramma staat dit namelijk ach¬ 
ter het eigenlijke programma en vormt nu 
één geheel. In sommige gevallen kan dit 
extra stuk programma problemen geven b.v. 
met de geheugenruimte! 


Er staat geen 'zelftest' meer bij dit 
controleprogramma daar er afwijkingen in 
de telling kunnen voorkomen wanneer de 
controle via het beeldscherm plaatsvindt 
of wanneer het programma al een keer is 
geRUNd. Om dezelfde reden dient het te 
controleren programma ook alleen ingeladen 
te worden voor de^ controle en moet men 
NIET eerst RUN geven. Na het RUNen zal de 
controle -bij sommige regels- een andere 
waarde geven!! 

Let goed op de DATA-regels. Hier worden de 
meeste fouten gemaakt. Bij het omwisselen 
van getallen in deze DATAregels wordt wel 
een juiste telling gegeven, maar het 
programma zal niet (of onjuist) werken! 


REMrregels worden niet gecontroleerd. 
Mocht het voorkomen dat REM-regels wel 
exact moeten worden overgenomen, dan zal 
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de mini gids 

In deze rubriek kunnen onze lezers advertenties plaatsen, 
mits niet van commerciële aard! Handelaren kunnen onze 
advertentietarieven aanvragen. 

De redaktie behoudt zich het recht voor advertenties voor 
deze rubriek te weigeren. Inzendingen kunnen gestuurd wor¬ 
den naar Postbus 10252, 1001 EG Amsterdam en dienen 
voorzien te zijn van naam, adres en evt. telefoonnummer. 
Advertenties met alleen postbusnummer of antwoordnummer 
worden niet opgenomen. 


A AISTG E B O D EN 

SONY HB-75P met joystick, ca. 75 spellen 
en boeken voor Fl. 575,=. J.Westra, 
Merelstraat 8, 9271 CN Zwaagwesteinde, 
Tel. 05113-3493 

Te koop: Philips VG8020, KI. mon. CM8500 
Datarecorder D6450, boek MSX Basic en veel 
software. Alles in één koop Fl. 1100,= 
B.Bink, Yplein 197, Amsterdam, Tel. 
020-367462 

Te koop: Philips VG8235 (MSX-2) + software 
+ monitor (groen) + boeken en 
tijdschriften. Fl. 1300,= F.Alink, 
Zutphen, Tel. 05750-27336 

Te koop: SVI 738 X'press MSX-computer als 
nieuw in doos. Prijs Fl. 700,=. 

W.Klinkenbijl. Tel. 04132-61710 

Te koop: originele software; 
tekstverwerker, kinderziekten analyse, 
belastingprogramma 1986. Joost Bosman. 
Tel. 05910-40202. Allen Fl. 10,= p.st. 

Diverse originele MSX games. Mandragore 
(64k) Fl. 45,= Dogfighter Fl. 7,50 en een 
cassette met Boulderdash, Eric and the 
Floaters en Space Busters Fl. 15,=. Mario 
Smit, Tel. 05130-20102 na 18.00 uur. 

Wegens aanschaf PC te koop MSX-1 
computerset bestaande uit: JVC HC-7gb (nog 
geen jaar oud), Datarecorder (WH Smith), 2 
joysticks. Dot matrix printer (Toshiba 
HX-P550) 1/2 jaar oud, Monochr. mon. 
(Slipstream DF 622/00b) 1/2 jaar oud. 
Incl. kabels, software, leerboeken en 
alles in originele verpakking. R.v.d.Tol. 
Tel. 02940-16615 

Toshiba HX-10 MSX-1 met handleiding, 
datarecorder, 2 joysticks en veel software 
(o.a. Le Mans, Goonies, Pinball, Congo, 
Sorcery, Buck Rogers, Wizard’s Lair en 
Toshiba demonstratie programma's. Inl. 
Tel. 020-835190 na 15.00 uur. Vragen naar 
David. 


GEVRAA-OD 

3.5 Inch diskdrive, printer/plotter 
(beiden voor MSX) en iemand om software 
mee te ruilen, (ik heb nog niet erg veel). 
Allan Beumer, Voorhorst 9, 7414 BA 
Deventer, Tel. 05700-40510 


Wie heeft voor mij de handleidingen van 
Rambo en Battle For Midway. W.Ansink, J.v. 
Gentstraat 49, 6717 GV Ede, Tel. 

08380-33388. 

Gezocht MSX-Gids nrs 1 t/m 3, tevens 
MSX-ers omgeving Hellevoetsluis om 
ervaring of software uit te wisselen. J. 
v/d Weide, Boogschutter 35, 3225 EA 
Hellevoetsluis. Tel. 01883-11012 

Gevraagd astrologie programma op cassette 
voor MSX. Te. 020-656347/471492. 


R.TJXIL.EN 


Te ruil voor MSX-1: Le Mans, Chopper, A 
view to kill, Battle for midway. Allen 
origineel. Stuur je lijst naar J.Wiegman, 
Graswickelstraat 23, 2613 PT Delft. 

Ruilen: Formula One (simulator) tegen 
Master Voice. Tel. 01693-2680 werkdagen 
tussen 17.30 en 21.00 uur, vragen naar 
Erik Jan van Boxsel. 

Ruilen: MSX software op tape. Tevens 
gevraagd Topografie (Ned. Eur. Wereld). 
Tel. 055-415728 na 19.00 uur. 


DXVERSElSr 


MSX-GEBRUIKERSGROEP MIDDEN BRABANT zoekt 
kontakt met nieuwe leden. Kontaktadres: 
Voltstraat 20, 5040 SE Tilburg. 


T.W.S. club voor MSX zoekt leden. 

Onze leden kunnen van ons verwachten: 

-Hulp van allerlei aard. 

-5x per jaar het T.W.S. Magazine. 
-Wedstrijden. 

-later dit jaar gebruik van ons eigen 
datanummer. 

-Korting op apparatuur. 

Het T.W.S. Magazine: 

-Veel listings en testen. 

-mini advertenties voor leden. 

-Veel uitleg BASIC (ook MSX-2). 

-Software testen. 

Kortom een club voor bobbiesten door 
hobbiesten, met toekomst en perspecteif. 
Een lidmaatschap kost Fl. 35,= per jaar. 

Aanmelden: T.W.S. abonnementen 
3e Braamstraat 7 
2563 TK Den Haag 


BASISONDERWIJS-BOVENBOUW-EDUCATIEF 
Ik zoek contact met mensen die de MSX (2) 
computer gebruiken in de bovenbouw van de 
basisschool. Verder met mensen die hun MSX 
(2) NIET voor spelletjes gebruiken. 
P.P.J.M. Eppings, Markt 59, 4331 LK 

Middelburg. Tel. 01180-33226. 
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1 I I M T r 


. ★***★★★★****************★★*★***** *************5lf****** ******** ************ 

onze nieuwe WINTER 1986/87 CATALOGUS is nu uit. Stuur ons een kaart * 
met je naam en adres + de vermelding 'MSX Gids' * 

> en we sturen hem GRATIS toe. Of kom hem afhalen in de winkel. * 

"************************************************************************* 


in BELGIE 

zijn al onze artikelen verkrijgbaar bij 
Het ComputerwinkeItje pvba, 

M Sabbestraat 39, B-2800 MECHELEN 
telefoon (015) 206 645 






Ü!S)(_BESISELLERS.MAARI_1987 

Cursus Z80 AssembleertaaL . 36 

Programmeren van de Z80 . 59,50 

Turbo Pascal Compleet . 68 

Programmeercursus MSX BASIC . 45 

Werken met Bestanden in MSX BASIC ... 45 

Handboek MSX . 79,50 

BASICODE-3 incL cassette MSX/MSX2 27,50 
★MSX BASIC met VPOKE en SPRITEs.... 27,50 

★MSX Truuks en Tips deel 8 . 25,15 

MSX Truuks en Tips deel 7 . 25,15 

MSX Truuks en Tips deel 6 . 25,15 

MSX Truuks en Tips deel 5 . 25,15 

★MSX-2 Zakboekje . 27,75 

★Grafische Experimenten voor MSX .. 34,50 

★MSX ROM/BIOS Handboek . 55 

MSX BASIC (Sickler) . 30,75 

★MSX Listingboek . 17,95 

MSX BASIC leerboek deel 1 . 24,75 

MSX opdrachten bij deel 1 . 11,10 

MSX BASIC leerboek deel 2 . 24,75 

MSX opdrachten bij deel 2 . 11,10 

MSX DOS leerboek deel 3 . 24,75 

★MSX Programmeren in Machinetaal .. 32,50 

MSX MachinetaaIhandboek . 34,80 

MSX Machinetaalboek . 49,90 

★Het Floppyboek voor MSX Computers 59,90 

MSX BIOS - complete listing . 99 

★Tips en Trucs voor de MSX Computer 49,90 


HIERONDER EEN OVERZICHT VAN ACTUELE MSX BOEKEN 


Z80^_BASIC^_C^_Lggg^_Pasca^ 

Zakboekje Z-80 . 25 

Advanced Z80 Machine Code . 65 

Microsoft BASIC - MSX BASIC ... 69 
Bouw zelf een Expertsysteem in 

BASIC . 45 

Kunstmatige Intelligentie op uw 

Computer . 30 

De Programmeertaal C . 25 

Practical C for the Home Micro. 39 

Logisch Logo . 35 

Cursus Pascal . 39,90 

Turbo Pascal Program Library .. 65 
??§X_nederJ.ands 

40 Grafische Programmaas MSX 29,50 

Adventures voor de MSX . 24,95 

Miraculeuze Spelen voor uw MSX 29 
★MSX-Computers in Basisschool 39,90 

MSX Computer Spelen Boek _ 24,95 

★MSX Programmaas voor dagelijks 

gebruik . 29,75 

Het MSX instructieboek . 39,50 

MSX Programma Mix . 24,95 

Professionele Software voor de 

MSX Computer . 49,90 

Leren Omgaan met MSX Computer25,75 

MSX DOS met Disk BASIC . 33,50 

BASIC Programmaas voor MSX . 25,50 
MSX Listingboek . 17,95 


ACTUELE MSX SOFTWARE (t=tape/d=disk/c=cartridge) 


IMSX_Nutti9_2 
MSX-CALC cartridge 


195 


Spreadsheet + Graphics 

MSX-TEXT cartridge .. 

. 195 

Tekstverwerker + Database 

★EasyPaint . 

t 35 

★Palet . 

t 35 

★Des 2 . 

t 50 

Music Editor 'MUE' .. 

c 95 

★MSX Artist . 

t 19 

★PRINT X PRESS . 

t 95 

idem op disk . 

d109 

voor Epson Printers. 


Eddy II tekenen . 

c 76 

Tasword MSX . 

t 65 

Aacko Desk ..(3.5"). 

d 399 

database+tekstverwerker 

Aacko Scribe (3.5") 

d 259 

MSX utilities : 


Speedsave 400Ö . 

t 29 

Speedsave 4000 . 

d 45 

MSX-64 tekens p regel 

t 35 

MSX programmeertalen : 


Hisoft DevPac . 

t 79 

Hisoft DevPac . 

d165 

Hisoft Pascal . 

t125 

Hisoft Pascal 80 .... 

d165 

Hisoft C++ . 

d165 

MT-Debug . 

c149 


MSX Adventures 

★De Erfenis . 

t 

59 

MSX Sportsimulaties 

Le Mans . 

★De Erfenis . 

d 

69 

International Karate 

Castle BLackstar _ 

t 

32 

Dunkshot -basketball 

Journey to the Centre 

of 


★Wintergames . 


t 19 
t 39 
c 79 


Earth . 

t 

15 

Formula 1 Simulator . 

, t 

10 

Jewels of Darkness .. 

t 

65 

Konami Boxing . 

c 

65 

Vera Cruz Affair .... 

t 

45 

Konami FootbalL . 

c 

65 

★SaLvage . 

t 

10 

★Footballer of the yeart 

32 

The Price of Magick . 

t 

45 

Speedking motorrace . 

t 

12 

★Silicon Dreams . 

t 

59 

MSX Fliqhtsimulators 



Arcade Adventures 



737 Flight Simulator 

t 

49 

★Avenger . 

t 

39 

★ Chopper I . t 

34, 

.90 

'Way of the Tiger II 



★Dambusters . 

t 

39 

★Batman . 

t 

36 

★Space Shuttle . 

t 

49 

★Deus ex Machina . 

t 

36 

Flight Deck . t 

59, 

,90 

★Dynamite Dan . 

t 

36 

★Starfighter . t 

34, 

.90 

Starquake . 

t 

36 

North Sea Helicopter 

59, 

,90 

★Storm . 

t 

10 

★Spitfire 40 . 

t 

39 

Octagon Squad . 

t 

10 




*Wizard's Lair . 

t 

36 

MSX-2 Software op disk 




★NASHUA diskettes per 10 ★ 

5” single sided. 25 

3.5” single sided. 55 

3.5” doublé sided . 75 


The Chess Game MSX-2 89,90 

Chopper II . d 69,90 

Red Lights of A'damd 79,90 

★Thunderball . d 49,90 

★Tasword MSX-2_ d 149 

★FISTAN . d300,50 

financiële administratie 


*********************************** 

★ Speciale MSX boeken aanbieding ★ 

★ MSX EXPOSED . f 5,- ★ 

★ normale prijs f 39,- * 

*********************************** 

?!!SX_neder],ands 

MSX-2 BASIC Handboek . 57,05 

★MSX-2 MachinetaaIhandboek . 42,90 

★MSX-2 Zakboekje . 27,75 

★Grafische Experimenten voor 

MSX Computers . 34,50 

MSX Computers en Printers .. 27,75 

MSX BASIC Handboek . 49,95 

MSX DOS Handboek v iedereen 26,75 

MSX Disk Handboek . 29,80 

MSX Verder Uitgediept . 24,10 

Financiële Programmaas v MSX 25,75 

Het MSX Software boek . 27,90 

Werken met de MSX Computer . 25,75 

De MSX Gebruikersgids . 39,50 

MSX Programmaverzameling ... 49,90 
Grafiek en Geluid voor MSX . 49,90 

?!!§X_dui ts_en_enge Is 

MSX Tips und tricks . 59 

Das MSX Buch mi t MSX-2 . 69 

The MSX Games Book . 36 

UsefuL Utilities for MSX ... 17,50 


★Donkey Kong . t 36 

★Gauntlet . t 39 

★Future Knight . t 32 

★Sea King . t 10 

★Boulderdash II . t 39 

★Spy VS Spy II . t 39 

★Sprinter II -trein t 34,90 

★Five Star Games . t 39 

Chiller . t 10 

★Dawn Patrol . t 49,90 

★Computer Hits 3. t 39 

★Vestron . t 10 

★Trai Lblazer . t 32 

Finders Keepers . t 10 

★ Chicken Chase . t 15 

Jack the Nipper . t 35 

Knight Tyme . t 15 

★Invaders . t 10 

Molecule Man . t 12 

MSXtra '. t 45 

★Konami Nemesis . c 65 

★Konami The Goonies .. c 65 

★Desolator . t 36 

Turmoil . t 15 

★Ole . t 15 

Konami Knightmare ... c 65 

6 Computer Hits . t 35 

Konami Hyperralley .. c 65 


TTllllill.il 


winkel open van woensdag t/m 
verzendkosten f 


TI ' J. ! i I I I TTT^TTTZ I "! 1 I I ! I _L 


zaterdag tussen 11.00 en 17.00 (maandag/disndag gesloten) 
6,- per bestelling - vraag onze nieuwe WINTER 1986/87 


X 


XI ■ I I I I I I I I 


alle prijzen inclusief BTW 

CATALOGUS aan. 


XT 


microcomputer tijdschriften boeken en software 


i I : II M ’ I I • I [ 


XE 


























































































































































































































































































































































































































































































































Wi] l^veron oen zoor ruim 
assortiment voor uw MSX 
on MSX2 computer. 


Winter games 

cas 

FL 

45.00 

Desolater 

cas 

FL 

39.90 

Tasword I cas FL 95.00 

Batman 

cas 

FL 

39.00 

Zoids 

cas 

FL 

39.50 

TASWORD I disk Fl 115.00 

Gauntlet 

cas 

FL 

39.00 

Beam rider 

cas 

FL 

49.00 

Tasword II disk FL 149.00 

Macross 

cas 

FL 

39.90 

Mayhan 

cas 

FL 

39.50 

Teach electric. cas FL 35.00 

Inca 

cas 

R„ 

29.90 

Dungeon adv. 

cas 

FL 

49.50 

Eddy II rem FL 76.00 

Spy VS spy 

cas 

R, 

-•!9.00 

Killer tematoes 

cas 

FL 

39.50 

Msx text rem FL 195.00 

Protector 

cas 

R, 

34,90 

Oils well 

cas 

Fl 

45.00 

Msx calc rem FL 195.00 

Crusader 

cas 

FL 

34.90 

Green baret 

rem 

FL 

65.00 

Devpac 80 disk FL 165.00 

Dynamite dan 

cas 

FL 

49.00 

Jail break 

rem 

FL 

65.00 

Devpac 80 cas FL 79.00 

Inheritance 

cas 

FL 

45.00 

Knightmare 

rem 

FL 

65.00 

Pascal 80 disk FL 165.00 

Who dares win H 

cas 

FL 

32.00 

Kung fu II 

rem 

FL 

65.00 

★ ★★★★★★ 

Donkey kong 

cas 

FL 

36.00 

Nemesis 

rem 

FL 

65.00 

LET OP' > 

Spitfire 40 

cas 

FL 

45.00 

Goonies 

rem 

FL 

65.00 

Bestel nu voor FL 25.00 uw 

Future knight 

cas 

FL 

39.90 

01 d mac farmer 

rem 

Fl 

69.00 

klantenpas. Deze geeft recht cp 

Happy fr^;C 

cas 

FL 

34.90 

Zoem 

rem 

FL 

69.00 

gratis toezending van onze 

Pico pico 

cas 

FL 

29.90 

Warroid 

rem 

FL 

69.00 

nieuwste catalogus,+ 4 X p.jaêr 

Pol ar star 

cas 

FL 

29.90 

Lode runner 

rem 

FL 

69.00 

Bij betaling vooruit toezending 

Star fighter 

cas 

FL 

34.90 

Circus Charlie 

rem 

FL 

59.00 

van porto vrije bestellingen. 

Grogs revenge 

cas 

FL 

29.50 

Super cobra 

rem 

FL 

59.00 

Aantrekkelijke kortingen op 

Cluedo 

cas 

FL 

45.00 

Hole in one prof rem 

FL 

79.00 

aankopen in de winkel En op 

Monopoly 

cas 

FL 

45.00 

Music editor 

rem 

FL 

99.00 

vertoon van de pas kunt u op 

Scrak)le 

cas 

FL 

45.00 

Graphic master 

rem 

FL 169.00 

4 April uw recorder gratis laten 

Nu wave 

cas 

Fl 

45.00 

Print lab 

rem 

FL 169.00 

afregelen. En nog vele voordeel¬ 

4 master ganes 

cas 

FL 

45.00 

Music studio 

rem 

FL 169.00 

tjes meer. De pas is geldig voor 

Dawn patrol 

cas 

FL 

49.90 

SVI 64k geheugen uitbreiding 

1 jaar. Tevens dingt u mee in 

Five star ganes 

cas 

FL 

45.00 



FL 159.00 

onze prijs loterij.Voor INFO 


BEL 020-123206 of nai-IR'ÏDI 


Bestelbon Titels Prijs 

M.I.V. 1 MAART 1987 CATALOGUS TOEZENDING FL 2.50 
^ Vooruit per giro :45266d2 ƒ4,* porto . . 


^ Euro/betaaicheque f4,-porto 


/ 


Rembours 


fl O,-porto 


/. 


Naam : . Totaal :ƒ. 

Adres ^ : . Porto ;ƒ. 

Postcode ; . Totaal te voldoer^ 

Woonplaats : . 

Telefoon : . CaiinDir©k©niiingnr. 462S6S2 


















































